Splitting a Procedure

M

Mark

When I run the code below I get a compile error message
that states procedure to large. The knowledge base tells
me to split the procedure. How do i do this? Here is the
procedure below. Any suggestions or help is extremely
appreciated.

Private Sub Up1_Click()
Select Case LB1.ListIndex
Case 0 'First item in list
Range("C5").Value = Worksheets("QA1").Range
("B4").Value
Range("C6").Value = Worksheets("QA1").Range
("E4").Value
Range("C13").Value = Worksheets("QA1").Range
("D6").Value
Range("D13").Value = Worksheets("QA1").Range
("E6").Value
Range("E13").Value = Worksheets("QA1").Range
("F6").Value
Range("F13").Value = Worksheets("QA1").Range
("G6").Value
Range("G13").Value = Worksheets("QA1").Range
("H6").Value
Range("H13").Value = Worksheets("QA1").Range
("I6").Value
Range("I13").Value = Worksheets("QA1").Range
("J6").Value
Range("J13").Value = Worksheets("QA1").Range
("K6").Value
Range("K13").Value = Worksheets("QA1").Range
("L6").Value
Range("L13").Value = Worksheets("QA1").Range
("M6").Value
Range("M13").Value = Worksheets("QA1").Range
("N6").Value
Range("N13").Value = Worksheets("QA1").Range
("O6").Value
Range("C14").Value = Worksheets("QA1").Range
("D9").Value
Range("D14").Value = Worksheets("QA1").Range
("E9").Value
Range("E14").Value = Worksheets("QA1").Range
("F9").Value
Range("F14").Value = Worksheets("QA1").Range
("G9").Value
Range("G14").Value = Worksheets("QA1").Range
("H9").Value
Range("H14").Value = Worksheets("QA1").Range
("I9").Value
Range("I14").Value = Worksheets("QA1").Range
("J9").Value
Range("J14").Value = Worksheets("QA1").Range
("K9").Value
Range("K14").Value = Worksheets("QA1").Range
("L9").Value
Range("L14").Value = Worksheets("QA1").Range
("M9").Value
Range("M14").Value = Worksheets("QA1").Range
("N9").Value
Range("N14").Value = Worksheets("QA1").Range
("O9").Value
Range("C31").Value = Worksheets("QA1").Range
("D11").Value
Range("D31").Value = Worksheets("QA1").Range
("E11").Value
Range("E31").Value = Worksheets("QA1").Range
("F11").Value
Range("F31").Value = Worksheets("QA1").Range
("G11").Value
Range("G31").Value = Worksheets("QA1").Range
("H11").Value
Range("H31").Value = Worksheets("QA1").Range
("I11").Value
Range("I31").Value = Worksheets("QA1").Range
("J11").Value
Range("J31").Value = Worksheets("QA1").Range
("K11").Value
Range("K31").Value = Worksheets("QA1").Range
("L11").Value
Range("L31").Value = Worksheets("QA1").Range
("M11").Value
Range("M31").Value = Worksheets("QA1").Range
("N11").Value
Range("N31").Value = Worksheets("QA1").Range
("O11").Value
Range("C49").Value = Worksheets("QA1").Range
("D12").Value
Range("D49").Value = Worksheets("QA1").Range
("E12").Value
Range("E49").Value = Worksheets("QA1").Range
("F12").Value
Range("F49").Value = Worksheets("QA1").Range
("G12").Value
Range("G49").Value = Worksheets("QA1").Range
("H12").Value
Range("H49").Value = Worksheets("QA1").Range
("I12").Value
Range("I49").Value = Worksheets("QA1").Range
("J12").Value
Range("J49").Value = Worksheets("QA1").Range
("K12").Value
Range("K49").Value = Worksheets("QA1").Range
("L12").Value
Range("L49").Value = Worksheets("QA1").Range
("M12").Value
Range("M49").Value = Worksheets("QA1").Range
("N12").Value
Range("N49").Value = Worksheets("QA1").Range
("O12").Value
Range("C78").Value = Worksheets("QA1").Range
("D13").Value
Range("D78").Value = Worksheets("QA1").Range
("E13").Value
Range("E78").Value = Worksheets("QA1").Range
("F13").Value
Range("F78").Value = Worksheets("QA1").Range
("G13").Value
Range("G78").Value = Worksheets("QA1").Range
("H13").Value
Range("H78").Value = Worksheets("QA1").Range
("I13").Value
Range("I78").Value = Worksheets("QA1").Range
("J13").Value
Range("J78").Value = Worksheets("QA1").Range
("K13").Value
Range("K78").Value = Worksheets("QA1").Range
("L13").Value
Range("L78").Value = Worksheets("QA1").Range
("M13").Value
Range("M78").Value = Worksheets("QA1").Range
("N13").Value
Range("N78").Value = Worksheets("QA1").Range
("O13").Value
Range("C96").Value = Worksheets("QA1").Range
("D14").Value
Range("D96").Value = Worksheets("QA1").Range
("E14").Value
Range("E96").Value = Worksheets("QA1").Range
("F14").Value
Range("F96").Value = Worksheets("QA1").Range
("G14").Value
Range("G96").Value = Worksheets("QA1").Range
("H14").Value
Range("H96").Value = Worksheets("QA1").Range
("I14").Value
Range("I96").Value = Worksheets("QA1").Range
("J14").Value
Range("J96").Value = Worksheets("QA1").Range
("K14").Value
Range("K96").Value = Worksheets("QA1").Range
("L14").Value
Range("L96").Value = Worksheets("QA1").Range
("M14").Value
Range("M96").Value = Worksheets("QA1").Range
("N14").Value
Range("N96").Value = Worksheets("QA1").Range
("O14").Value
Range("C114").Value = Worksheets("QA1").Range
("D16").Value
Range("D114").Value = Worksheets("QA1").Range
("E16").Value
Range("E114").Value = Worksheets("QA1").Range
("F16").Value
Range("F114").Value = Worksheets("QA1").Range
("G16").Value
Range("G114").Value = Worksheets("QA1").Range
("H16").Value
Range("H114").Value = Worksheets("QA1").Range
("I16").Value
Range("I114").Value = Worksheets("QA1").Range
("J16").Value
Range("J114").Value = Worksheets("QA1").Range
("K16").Value
Range("K114").Value = Worksheets("QA1").Range
("L16").Value
Range("L114").Value = Worksheets("QA1").Range
("M16").Value
Range("M114").Value = Worksheets("QA1").Range
("N16").Value
Range("N114").Value = Worksheets("QA1").Range
("O16").Value
Case 1 'Second item in list
Range("C5").Value = Worksheets("QA2").Range
("B4").Value
Range("C6").Value = Worksheets("QA2").Range
("E4").Value
Range("C13").Value = Worksheets("QA2").Range
("D6").Value
Range("D13").Value = Worksheets("QA2").Range
("E6").Value
Range("E13").Value = Worksheets("QA2").Range
("F6").Value
Range("F13").Value = Worksheets("QA2").Range
("G6").Value
Range("G13").Value = Worksheets("QA2").Range
("H6").Value
Range("H13").Value = Worksheets("QA2").Range
("I6").Value
Range("I13").Value = Worksheets("QA2").Range
("J6").Value
Range("J13").Value = Worksheets("QA2").Range
("K6").Value
Range("K13").Value = Worksheets("QA2").Range
("L6").Value
Range("L13").Value = Worksheets("QA2").Range
("M6").Value
Range("M13").Value = Worksheets("QA2").Range
("N6").Value
Range("N13").Value = Worksheets("QA2").Range
("O6").Value
Range("C14").Value = Worksheets("QA2").Range
("D9").Value
Range("D14").Value = Worksheets("QA2").Range
("E9").Value
Range("E14").Value = Worksheets("QA2").Range
("F9").Value
Range("F14").Value = Worksheets("QA2").Range
("G9").Value
Range("G14").Value = Worksheets("QA2").Range
("H9").Value
Range("H14").Value = Worksheets("QA2").Range
("I9").Value
Range("I14").Value = Worksheets("QA2").Range
("J9").Value
Range("J14").Value = Worksheets("QA2").Range
("K9").Value
Range("K14").Value = Worksheets("QA2").Range
("L9").Value
Range("L14").Value = Worksheets("QA2").Range
("M9").Value
Range("M14").Value = Worksheets("QA2").Range
("N9").Value
Range("N14").Value = Worksheets("QA2").Range
("O9").Value
Range("C31").Value = Worksheets("QA2").Range
("D11").Value
Range("D31").Value = Worksheets("QA2").Range
("E11").Value
Range("E31").Value = Worksheets("QA2").Range
("F11").Value
Range("F31").Value = Worksheets("QA2").Range
("G11").Value
Range("G31").Value = Worksheets("QA2").Range
("H11").Value
Range("H31").Value = Worksheets("QA2").Range
("I11").Value
Range("I31").Value = Worksheets("QA2").Range
("J11").Value
Range("J31").Value = Worksheets("QA2").Range
("K11").Value
Range("K31").Value = Worksheets("QA2").Range
("L11").Value
Range("L31").Value = Worksheets("QA2").Range
("M11").Value
Range("M31").Value = Worksheets("QA2").Range
("N11").Value
Range("N31").Value = Worksheets("QA2").Range
("O11").Value
Range("C49").Value = Worksheets("QA2").Range
("D12").Value
Range("D49").Value = Worksheets("QA2").Range
("E12").Value
Range("E49").Value = Worksheets("QA2").Range
("F12").Value
Range("F49").Value = Worksheets("QA2").Range
("G12").Value
Range("G49").Value = Worksheets("QA2").Range
("H12").Value
Range("H49").Value = Worksheets("QA2").Range
("I12").Value
Range("I49").Value = Worksheets("QA2").Range
("J12").Value
Range("J49").Value = Worksheets("QA2").Range
("K12").Value
Range("K49").Value = Worksheets("QA2").Range
("L12").Value
Range("L49").Value = Worksheets("QA2").Range
("M12").Value
Range("M49").Value = Worksheets("QA2").Range
("N12").Value
Range("N49").Value = Worksheets("QA2").Range
("O12").Value
Range("C78").Value = Worksheets("QA2").Range
("D13").Value
Range("D78").Value = Worksheets("QA2").Range
("E13").Value
Range("E78").Value = Worksheets("QA2").Range
("F13").Value
Range("F78").Value = Worksheets("QA2").Range
("G13").Value
Range("G78").Value = Worksheets("QA2").Range
("H13").Value
Range("H78").Value = Worksheets("QA2").Range
("I13").Value
Range("I78").Value = Worksheets("QA2").Range
("J13").Value
Range("J78").Value = Worksheets("QA2").Range
("K13").Value
Range("K78").Value = Worksheets("QA2").Range
("L13").Value
Range("L78").Value = Worksheets("QA2").Range
("M13").Value
Range("M78").Value = Worksheets("QA2").Range
("N13").Value
Range("N78").Value = Worksheets("QA2").Range
("O13").Value
Range("C96").Value = Worksheets("QA2").Range
("D14").Value
Range("D96").Value = Worksheets("QA2").Range
("E14").Value
Range("E96").Value = Worksheets("QA2").Range
("F14").Value
Range("F96").Value = Worksheets("QA2").Range
("G14").Value
Range("G96").Value = Worksheets("QA2").Range
("H14").Value
Range("H96").Value = Worksheets("QA2").Range
("I14").Value
Range("I96").Value = Worksheets("QA2").Range
("J14").Value
Range("J96").Value = Worksheets("QA2").Range
("K14").Value
Range("K96").Value = Worksheets("QA2").Range
("L14").Value
Range("L96").Value = Worksheets("QA2").Range
("M14").Value
Range("M96").Value = Worksheets("QA2").Range
("N14").Value
Range("N96").Value = Worksheets("QA2").Range
("O14").Value
Range("C114").Value = Worksheets("QA2").Range
("D16").Value
Range("D114").Value = Worksheets("QA2").Range
("E16").Value
Range("E114").Value = Worksheets("QA2").Range
("F16").Value
Range("F114").Value = Worksheets("QA2").Range
("G16").Value
Range("G114").Value = Worksheets("QA2").Range
("H16").Value
Range("H114").Value = Worksheets("QA2").Range
("I16").Value
Range("I114").Value = Worksheets("QA2").Range
("J16").Value
Range("J114").Value = Worksheets("QA2").Range
("K16").Value
Range("K114").Value = Worksheets("QA2").Range
("L16").Value
Range("L114").Value = Worksheets("QA2").Range
("M16").Value
Range("M114").Value = Worksheets("QA2").Range
("N16").Value
Range("N114").Value = Worksheets("QA2").Range
("O16").Value
Case 2 'Third item in list
Range("C5").Value = Worksheets("QA3").Range
("B4").Value
Range("C6").Value = Worksheets("QA3").Range
("E4").Value
Range("C13").Value = Worksheets("QA3").Range
("D6").Value
Range("D13").Value = Worksheets("QA3").Range
("E6").Value
Range("E13").Value = Worksheets("QA3").Range
("F6").Value
Range("F13").Value = Worksheets("QA3").Range
("G6").Value
Range("G13").Value = Worksheets("QA3").Range
("H6").Value
Range("H13").Value = Worksheets("QA3").Range
("I6").Value
Range("I13").Value = Worksheets("QA3").Range
("J6").Value
Range("J13").Value = Worksheets("QA3").Range
("K6").Value
Range("K13").Value = Worksheets("QA3").Range
("L6").Value
Range("L13").Value = Worksheets("QA3").Range
("M6").Value
Range("M13").Value = Worksheets("QA3").Range
("N6").Value
Range("N13").Value = Worksheets("QA3").Range
("O6").Value
Range("C14").Value = Worksheets("QA3").Range
("D9").Value
Range("D14").Value = Worksheets("QA3").Range
("E9").Value
Range("E14").Value = Worksheets("QA3").Range
("F9").Value
Range("F14").Value = Worksheets("QA3").Range
("G9").Value
Range("G14").Value = Worksheets("QA3").Range
("H9").Value
Range("H14").Value = Worksheets("QA3").Range
("I9").Value
Range("I14").Value = Worksheets("QA3").Range
("J9").Value
Range("J14").Value = Worksheets("QA3").Range
("K9").Value
Range("K14").Value = Worksheets("QA3").Range
("L9").Value
Range("L14").Value = Worksheets("QA3").Range
("M9").Value
Range("M14").Value = Worksheets("QA3").Range
("N9").Value
Range("N14").Value = Worksheets("QA3").Range
("O9").Value
Range("C31").Value = Worksheets("QA3").Range
("D11").Value
Range("D31").Value = Worksheets("QA3").Range
("E11").Value
Range("E31").Value = Worksheets("QA3").Range
("F11").Value
Range("F31").Value = Worksheets("QA3").Range
("G11").Value
Range("G31").Value = Worksheets("QA3").Range
("H11").Value
Range("H31").Value = Worksheets("QA3").Range
("I11").Value
Range("I31").Value = Worksheets("QA3").Range
("J11").Value
Range("J31").Value = Worksheets("QA3").Range
("K11").Value
Range("K31").Value = Worksheets("QA3").Range
("L11").Value
Range("L31").Value = Worksheets("QA3").Range
("M11").Value
Range("M31").Value = Worksheets("QA3").Range
("N11").Value
Range("N31").Value = Worksheets("QA3").Range
("O11").Value
Range("C49").Value = Worksheets("QA3").Range
("D12").Value
Range("D49").Value = Worksheets("QA3").Range
("E12").Value
Range("E49").Value = Worksheets("QA3").Range
("F12").Value
Range("F49").Value = Worksheets("QA3").Range
("G12").Value
Range("G49").Value = Worksheets("QA3").Range
("H12").Value
Range("H49").Value = Worksheets("QA3").Range
("I12").Value
Range("I49").Value = Worksheets("QA3").Range
("J12").Value
Range("J49").Value = Worksheets("QA3").Range
("K12").Value
Range("K49").Value = Worksheets("QA3").Range
("L12").Value
Range("L49").Value = Worksheets("QA3").Range
("M12").Value
Range("M49").Value = Worksheets("QA3").Range
("N12").Value
Range("N49").Value = Worksheets("QA3").Range
("O12").Value
Range("C78").Value = Worksheets("QA3").Range
("D13").Value
Range("D78").Value = Worksheets("QA3").Range
("E13").Value
Range("E78").Value = Worksheets("QA3").Range
("F13").Value
Range("F78").Value = Worksheets("QA3").Range
("G13").Value
Range("G78").Value = Worksheets("QA3").Range
("H13").Value
Range("H78").Value = Worksheets("QA3").Range
("I13").Value
Range("I78").Value = Worksheets("QA3").Range
("J13").Value
Range("J78").Value = Worksheets("QA3").Range
("K13").Value
Range("K78").Value = Worksheets("QA3").Range
("L13").Value
Range("L78").Value = Worksheets("QA3").Range
("M13").Value
Range("M78").Value = Worksheets("QA3").Range
("N13").Value
Range("N78").Value = Worksheets("QA3").Range
("O13").Value
Range("C96").Value = Worksheets("QA3").Range
("D14").Value
Range("D96").Value = Worksheets("QA3").Range
("E14").Value
Range("E96").Value = Worksheets("QA3").Range
("F14").Value
Range("F96").Value = Worksheets("QA3").Range
("G14").Value
Range("G96").Value = Worksheets("QA3").Range
("H14").Value
Range("H96").Value = Worksheets("QA3").Range
("I14").Value
Range("I96").Value = Worksheets("QA3").Range
("J14").Value
Range("J96").Value = Worksheets("QA3").Range
("K14").Value
Range("K96").Value = Worksheets("QA3").Range
("L14").Value
Range("L96").Value = Worksheets("QA3").Range
("M14").Value
Range("M96").Value = Worksheets("QA3").Range
("N14").Value
Range("N96").Value = Worksheets("QA3").Range
("O14").Value
Range("C114").Value = Worksheets("QA3").Range
("D16").Value
Range("D114").Value = Worksheets("QA3").Range
("E16").Value
Range("E114").Value = Worksheets("QA3").Range
("F16").Value
Range("F114").Value = Worksheets("QA3").Range
("G16").Value
Range("G114").Value = Worksheets("QA3").Range
("H16").Value
Range("H114").Value = Worksheets("QA3").Range
("I16").Value
Range("I114").Value = Worksheets("QA3").Range
("J16").Value
Range("J114").Value = Worksheets("QA3").Range
("K16").Value
Range("K114").Value = Worksheets("QA3").Range
("L16").Value
Range("L114").Value = Worksheets("QA3").Range
("M16").Value
Range("M114").Value = Worksheets("QA3").Range
("N16").Value
Range("N114").Value = Worksheets("QA3").Range
("O16").Value
Case 3 'Fourth item in list
Range("C5").Value = Worksheets("QA4").Range
("B4").Value
Range("C6").Value = Worksheets("QA4").Range
("E4").Value
Range("C13").Value = Worksheets("QA4").Range
("D6").Value
Range("D13").Value = Worksheets("QA4").Range
("E6").Value
Range("E13").Value = Worksheets("QA4").Range
("F6").Value
Range("F13").Value = Worksheets("QA4").Range
("G6").Value
Range("G13").Value = Worksheets("QA4").Range
("H6").Value
Range("H13").Value = Worksheets("QA4").Range
("I6").Value
Range("I13").Value = Worksheets("QA4").Range
("J6").Value
Range("J13").Value = Worksheets("QA4").Range
("K6").Value
Range("K13").Value = Worksheets("QA4").Range
("L6").Value
Range("L13").Value = Worksheets("QA4").Range
("M6").Value
Range("M13").Value = Worksheets("QA4").Range
("N6").Value
Range("N13").Value = Worksheets("QA4").Range
("O6").Value
Range("C14").Value = Worksheets("QA4").Range
("D9").Value
Range("D14").Value = Worksheets("QA4").Range
("E9").Value
Range("E14").Value = Worksheets("QA4").Range
("F9").Value
Range("F14").Value = Worksheets("QA4").Range
("G9").Value
Range("G14").Value = Worksheets("QA4").Range
("H9").Value
Range("H14").Value = Worksheets("QA4").Range
("I9").Value
Range("I14").Value = Worksheets("QA4").Range
("J9").Value
Range("J14").Value = Worksheets("QA4").Range
("K9").Value
Range("K14").Value = Worksheets("QA4").Range
("L9").Value
Range("L14").Value = Worksheets("QA4").Range
("M9").Value
Range("M14").Value = Worksheets("QA4").Range
("N9").Value
Range("N14").Value = Worksheets("QA4").Range
("O9").Value
Range("C31").Value = Worksheets("QA4").Range
("D11").Value
Range("D31").Value = Worksheets("QA4").Range
("E11").Value
Range("E31").Value = Worksheets("QA4").Range
("F11").Value
Range("F31").Value = Worksheets("QA4").Range
("G11").Value
Range("G31").Value = Worksheets("QA4").Range
("H11").Value
Range("H31").Value = Worksheets("QA4").Range
("I11").Value
Range("I31").Value = Worksheets("QA4").Range
("J11").Value
Range("J31").Value = Worksheets("QA4").Range
("K11").Value
Range("K31").Value = Worksheets("QA4").Range
("L11").Value
Range("L31").Value = Worksheets("QA4").Range
("M11").Value
Range("M31").Value = Worksheets("QA4").Range
("N11").Value
Range("N31").Value = Worksheets("QA4").Range
("O11").Value
Range("C49").Value = Worksheets("QA4").Range
("D12").Value
Range("D49").Value = Worksheets("QA4").Range
("E12").Value
Range("E49").Value = Worksheets("QA4").Range
("F12").Value
Range("F49").Value = Worksheets("QA4").Range
("G12").Value
Range("G49").Value = Worksheets("QA4").Range
("H12").Value
Range("H49").Value = Worksheets("QA4").Range
("I12").Value
Range("I49").Value = Worksheets("QA4").Range
("J12").Value
Range("J49").Value = Worksheets("QA4").Range
("K12").Value
Range("K49").Value = Worksheets("QA4").Range
("L12").Value
Range("L49").Value = Worksheets("QA4").Range
("M12").Value
Range("M49").Value = Worksheets("QA4").Range
("N12").Value
Range("N49").Value = Worksheets("QA4").Range
("O12").Value
Range("C78").Value = Worksheets("QA4").Range
("D13").Value
Range("D78").Value = Worksheets("QA4").Range
("E13").Value
Range("E78").Value = Worksheets("QA4").Range
("F13").Value
Range("F78").Value = Worksheets("QA4").Range
("G13").Value
Range("G78").Value = Worksheets("QA4").Range
("H13").Value
Range("H78").Value = Worksheets("QA4").Range
("I13").Value
Range("I78").Value = Worksheets("QA4").Range
("J13").Value
Range("J78").Value = Worksheets("QA4").Range
("K13").Value
Range("K78").Value = Worksheets("QA4").Range
("L13").Value
Range("L78").Value = Worksheets("QA4").Range
("M13").Value
Range("M78").Value = Worksheets("QA4").Range
("N13").Value
Range("N78").Value = Worksheets("QA4").Range
("O13").Value
Range("C96").Value = Worksheets("QA4").Range
("D14").Value
Range("D96").Value = Worksheets("QA4").Range
("E14").Value
Range("E96").Value = Worksheets("QA4").Range
("F14").Value
Range("F96").Value = Worksheets("QA4").Range
("G14").Value
Range("G96").Value = Worksheets("QA4").Range
("H14").Value
Range("H96").Value = Worksheets("QA4").Range
("I14").Value
Range("I96").Value = Worksheets("QA4").Range
("J14").Value
Range("J96").Value = Worksheets("QA4").Range
("K14").Value
Range("K96").Value = Worksheets("QA4").Range
("L14").Value
Range("L96").Value = Worksheets("QA4").Range
("M14").Value
Range("M96").Value = Worksheets("QA4").Range
("N14").Value
Range("N96").Value = Worksheets("QA4").Range
("O14").Value
Range("C114").Value = Worksheets("QA4").Range
("D16").Value
Range("D114").Value = Worksheets("QA4").Range
("E16").Value
Range("E114").Value = Worksheets("QA4").Range
("F16").Value
Range("F114").Value = Worksheets("QA4").Range
("G16").Value
Range("G114").Value = Worksheets("QA4").Range
("H16").Value
Range("H114").Value = Worksheets("QA4").Range
("I16").Value
Range("I114").Value = Worksheets("QA4").Range
("J16").Value
Range("J114").Value = Worksheets("QA4").Range
("K16").Value
Range("K114").Value = Worksheets("QA4").Range
("L16").Value
Range("L114").Value = Worksheets("QA4").Range
("M16").Value
Range("M114").Value = Worksheets("QA4").Range
("N16").Value
Range("N114").Value = Worksheets("QA4").Range
("O16").Value
Case 4 'Fifth item in list
Range("C5").Value = Worksheets("QA5").Range
("B4").Value
Range("C6").Value = Worksheets("QA5").Range
("E4").Value
Range("C13").Value = Worksheets("QA5").Range
("D6").Value
Range("D13").Value = Worksheets("QA5").Range
("E6").Value
Range("E13").Value = Worksheets("QA5").Range
("F6").Value
Range("F13").Value = Worksheets("QA5").Range
("G6").Value
Range("G13").Value = Worksheets("QA5").Range
("H6").Value
Range("H13").Value = Worksheets("QA5").Range
("I6").Value
Range("I13").Value = Worksheets("QA5").Range
("J6").Value
Range("J13").Value = Worksheets("QA5").Range
("K6").Value
Range("K13").Value = Worksheets("QA5").Range
("L6").Value
Range("L13").Value = Worksheets("QA5").Range
("M6").Value
Range("M13").Value = Worksheets("QA5").Range
("N6").Value
Range("N13").Value = Worksheets("QA5").Range
("O6").Value
Range("C14").Value = Worksheets("QA5").Range
("D9").Value
Range("D14").Value = Worksheets("QA5").Range
("E9").Value
Range("E14").Value = Worksheets("QA5").Range
("F9").Value
Range("F14").Value = Worksheets("QA5").Range
("G9").Value
Range("G14").Value = Worksheets("QA5").Range
("H9").Value
Range("H14").Value = Worksheets("QA5").Range
("I9").Value
Range("I14").Value = Worksheets("QA5").Range
("J9").Value
Range("J14").Value = Worksheets("QA5").Range
("K9").Value
Range("K14").Value = Worksheets("QA5").Range
("L9").Value
Range("L14").Value = Worksheets("QA5").Range
("M9").Value
Range("M14").Value = Worksheets("QA5").Range
("N9").Value
Range("N14").Value = Worksheets("QA5").Range
("O9").Value
Range("C31").Value = Worksheets("QA5").Range
("D11").Value
Range("D31").Value = Worksheets("QA5").Range
("E11").Value
Range("E31").Value = Worksheets("QA5").Range
("F11").Value
Range("F31").Value = Worksheets("QA5").Range
("G11").Value
Range("G31").Value = Worksheets("QA5").Range
("H11").Value
Range("H31").Value = Worksheets("QA5").Range
("I11").Value
Range("I31").Value = Worksheets("QA5").Range
("J11").Value
Range("J31").Value = Worksheets("QA5").Range
("K11").Value
Range("K31").Value = Worksheets("QA5").Range
("L11").Value
Range("L31").Value = Worksheets("QA5").Range
("M11").Value
Range("M31").Value = Worksheets("QA5").Range
("N11").Value
Range("N31").Value = Worksheets("QA5").Range
("O11").Value
Range("C49").Value = Worksheets("QA5").Range
("D12").Value
Range("D49").Value = Worksheets("QA5").Range
("E12").Value
Range("E49").Value = Worksheets("QA5").Range
("F12").Value
Range("F49").Value = Worksheets("QA5").Range
("G12").Value
Range("G49").Value = Worksheets("QA5").Range
("H12").Value
Range("H49").Value = Worksheets("QA5").Range
("I12").Value
Range("I49").Value = Worksheets("QA5").Range
("J12").Value
Range("J49").Value = Worksheets("QA5").Range
("K12").Value
Range("K49").Value = Worksheets("QA5").Range
("L12").Value
Range("L49").Value = Worksheets("QA5").Range
("M12").Value
Range("M49").Value = Worksheets("QA5").Range
("N12").Value
Range("N49").Value = Worksheets("QA5").Range
("O12").Value
Range("C78").Value = Worksheets("QA5").Range
("D13").Value
Range("D78").Value = Worksheets("QA5").Range
("E13").Value
Range("E78").Value = Worksheets("QA5").Range
("F13").Value
Range("F78").Value = Worksheets("QA5").Range
("G13").Value
Range("G78").Value = Worksheets("QA5").Range
("H13").Value
Range("H78").Value = Worksheets("QA5").Range
("I13").Value
Range("I78").Value = Worksheets("QA5").Range
("J13").Value
Range("J78").Value = Worksheets("QA5").Range
("K13").Value
Range("K78").Value = Worksheets("QA5").Range
("L13").Value
Range("L78").Value = Worksheets("QA5").Range
("M13").Value
Range("M78").Value = Worksheets("QA5").Range
("N13").Value
Range("N78").Value = Worksheets("QA5").Range
("O13").Value
Range("C96").Value = Worksheets("QA5").Range
("D14").Value
Range("D96").Value = Worksheets("QA5").Range
("E14").Value
Range("E96").Value = Worksheets("QA5").Range
("F14").Value
Range("F96").Value = Worksheets("QA5").Range
("G14").Value
Range("G96").Value = Worksheets("QA5").Range
("H14").Value
Range("H96").Value = Worksheets("QA5").Range
("I14").Value
Range("I96").Value = Worksheets("QA5").Range
("J14").Value
Range("J96").Value = Worksheets("QA5").Range
("K14").Value
Range("K96").Value = Worksheets("QA5").Range
("L14").Value
Range("L96").Value = Worksheets("QA5").Range
("M14").Value
Range("M96").Value = Worksheets("QA5").Range
("N14").Value
Range("N96").Value = Worksheets("QA5").Range
("O14").Value
Range("C114").Value = Worksheets("QA5").Range
("D16").Value
Range("D114").Value = Worksheets("QA5").Range
("E16").Value
Range("E114").Value = Worksheets("QA5").Range
("F16").Value
Range("F114").Value = Worksheets("QA5").Range
("G16").Value
Range("G114").Value = Worksheets("QA5").Range
("H16").Value
Range("H114").Value = Worksheets("QA5").Range
("I16").Value
Range("I114").Value = Worksheets("QA5").Range
("J16").Value
Range("J114").Value = Worksheets("QA5").Range
("K16").Value
Range("K114").Value = Worksheets("QA5").Range
("L16").Value
Range("L114").Value = Worksheets("QA5").Range
("M16").Value
Range("M114").Value = Worksheets("QA5").Range
("N16").Value
Range("N114").Value = Worksheets("QA5").Range
("O16").Value
Case 5 'Sixth item in list
Range("C5").Value = Worksheets("QA6").Range
("B4").Value
Range("C6").Value = Worksheets("QA6").Range
("E4").Value
Range("C13").Value = Worksheets("QA6").Range
("D6").Value
Range("D13").Value = Worksheets("QA6").Range
("E6").Value
Range("E13").Value = Worksheets("QA6").Range
("F6").Value
Range("F13").Value = Worksheets("QA6").Range
("G6").Value
Range("G13").Value = Worksheets("QA6").Range
("H6").Value
Range("H13").Value = Worksheets("QA6").Range
("I6").Value
Range("I13").Value = Worksheets("QA6").Range
("J6").Value
Range("J13").Value = Worksheets("QA6").Range
("K6").Value
Range("K13").Value = Worksheets("QA6").Range
("L6").Value
Range("L13").Value = Worksheets("QA6").Range
("M6").Value
Range("M13").Value = Worksheets("QA6").Range
("N6").Value
Range("N13").Value = Worksheets("QA6").Range
("O6").Value
Range("C14").Value = Worksheets("QA6").Range
("D9").Value
Range("D14").Value = Worksheets("QA6").Range
("E9").Value
Range("E14").Value = Worksheets("QA6").Range
("F9").Value
Range("F14").Value = Worksheets("QA6").Range
("G9").Value
Range("G14").Value = Worksheets("QA6").Range
("H9").Value
Range("H14").Value = Worksheets("QA6").Range
("I9").Value
Range("I14").Value = Worksheets("QA6").Range
("J9").Value
Range("J14").Value = Worksheets("QA6").Range
("K9").Value
Range("K14").Value = Worksheets("QA6").Range
("L9").Value
Range("L14").Value = Worksheets("QA6").Range
("M9").Value
Range("M14").Value = Worksheets("QA6").Range
("N9").Value
Range("N14").Value = Worksheets("QA6").Range
("O9").Value
Range("C31").Value = Worksheets("QA6").Range
("D11").Value
Range("D31").Value = Worksheets("QA6").Range
("E11").Value
Range("E31").Value = Worksheets("QA6").Range
("F11").Value
Range("F31").Value = Worksheets("QA6").Range
("G11").Value
Range("G31").Value = Worksheets("QA6").Range
("H11").Value
Range("H31").Value = Worksheets("QA6").Range
("I11").Value
Range("I31").Value = Worksheets("QA6").Range
("J11").Value
Range("J31").Value = Worksheets("QA6").Range
("K11").Value
Range("K31").Value = Worksheets("QA6").Range
("L11").Value
Range("L31").Value = Worksheets("QA6").Range
("M11").Value
Range("M31").Value = Worksheets("QA6").Range
("N11").Value
Range("N31").Value = Worksheets("QA6").Range
("O11").Value
Range("C49").Value = Worksheets("QA6").Range
("D12").Value
Range("D49").Value = Worksheets("QA6").Range
("E12").Value
Range("E49").Value = Worksheets("QA6").Range
("F12").Value
Range("F49").Value = Worksheets("QA6").Range
("G12").Value
Range("G49").Value = Worksheets("QA6").Range
("H12").Value
Range("H49").Value = Worksheets("QA6").Range
("I12").Value
Range("I49").Value = Worksheets("QA6").Range
("J12").Value
Range("J49").Value = Worksheets("QA6").Range
("K12").Value
Range("K49").Value = Worksheets("QA6").Range
("L12").Value
Range("L49").Value = Worksheets("QA6").Range
("M12").Value
Range("M49").Value = Worksheets("QA6").Range
("N12").Value
Range("N49").Value = Worksheets("QA6").Range
("O12").Value
Range("C78").Value = Worksheets("QA6").Range
("D13").Value
Range("D78").Value = Worksheets("QA6").Range
("E13").Value
Range("E78").Value = Worksheets("QA6").Range
("F13").Value
Range("F78").Value = Worksheets("QA6").Range
("G13").Value
Range("G78").Value = Worksheets("QA6").Range
("H13").Value
Range("H78").Value = Worksheets("QA6").Range
("I13").Value
Range("I78").Value = Worksheets("QA6").Range
("J13").Value
Range("J78").Value = Worksheets("QA6").Range
("K13").Value
Range("K78").Value = Worksheets("QA6").Range
("L13").Value
Range("L78").Value = Worksheets("QA6").Range
("M13").Value
Range("M78").Value = Worksheets("QA6").Range
("N13").Value
Range("N78").Value = Worksheets("QA6").Range
("O13").Value
Range("C96").Value = Worksheets("QA6").Range
("D14").Value
Range("D96").Value = Worksheets("QA6").Range
("E14").Value
Range("E96").Value = Worksheets("QA6").Range
("F14").Value
Range("F96").Value = Worksheets("QA6").Range
("G14").Value
Range("G96").Value = Worksheets("QA6").Range
("H14").Value
Range("H96").Value = Worksheets("QA6").Range
("I14").Value
Range("I96").Value = Worksheets("QA6").Range
("J14").Value
Range("J96").Value = Worksheets("QA6").Range
("K14").Value
Range("K96").Value = Worksheets("QA6").Range
("L14").Value
Range("L96").Value = Worksheets("QA6").Range
("M14").Value
Range("M96").Value = Worksheets("QA6").Range
("N14").Value
Range("N96").Value = Worksheets("QA6").Range
("O14").Value
Range("C114").Value = Worksheets("QA6").Range
("D16").Value
Range("D114").Value = Worksheets("QA6").Range
("E16").Value
Range("E114").Value = Worksheets("QA6").Range
("F16").Value
Range("F114").Value = Worksheets("QA6").Range
("G16").Value
Range("G114").Value = Worksheets("QA6").Range
("H16").Value
Range("H114").Value = Worksheets("QA6").Range
("I16").Value
Range("I114").Value = Worksheets("QA6").Range
("J16").Value
Range("J114").Value = Worksheets("QA6").Range
("K16").Value
Range("K114").Value = Worksheets("QA6").Range
("L16").Value
Range("L114").Value = Worksheets("QA6").Range
("M16").Value
Range("M114").Value = Worksheets("QA6").Range
("N16").Value
Range("N114").Value = Worksheets("QA6").Range
("O16").Value
Case 6 'Seventh item in list
Range("C5").Value = Worksheets("QA7").Range
("B4").Value
Range("C6").Value = Worksheets("QA7").Range
("E4").Value
Range("C13").Value = Worksheets("QA7").Range
("D6").Value
Range("D13").Value = Worksheets("QA7").Range
("E6").Value
Range("E13").Value = Worksheets("QA7").Range
("F6").Value
Range("F13").Value = Worksheets("QA7").Range
("G6").Value
Range("G13").Value = Worksheets("QA7").Range
("H6").Value
Range("H13").Value = Worksheets("QA7").Range
("I6").Value
Range("I13").Value = Worksheets("QA7").Range
("J6").Value
Range("J13").Value = Worksheets("QA7").Range
("K6").Value
Range("K13").Value = Worksheets("QA7").Range
("L6").Value
Range("L13").Value = Worksheets("QA7").Range
("M6").Value
Range("M13").Value = Worksheets("QA7").Range
("N6").Value
Range("N13").Value = Worksheets("QA7").Range
("O6").Value
Range("C14").Value = Worksheets("QA7").Range
("D9").Value
Range("D14").Value = Worksheets("QA7").Range
("E9").Value
Range("E14").Value = Worksheets("QA7").Range
("F9").Value
Range("F14").Value = Worksheets("QA7").Range
("G9").Value
Range("G14").Value = Worksheets("QA7").Range
("H9").Value
Range("H14").Value = Worksheets("QA7").Range
("I9").Value
Range("I14").Value = Worksheets("QA7").Range
("J9").Value
Range("J14").Value = Worksheets("QA7").Range
("K9").Value
Range("K14").Value = Worksheets("QA7").Range
("L9").Value
Range("L14").Value = Worksheets("QA7").Range
("M9").Value
Range("M14").Value = Worksheets("QA7").Range
("N9").Value
Range("N14").Value = Worksheets("QA7").Range
("O9").Value
Range("C31").Value = Worksheets("QA7").Range
("D11").Value
Range("D31").Value = Worksheets("QA7").Range
("E11").Value
Range("E31").Value = Worksheets("QA7").Range
("F11").Value
Range("F31").Value = Worksheets("QA7").Range
("G11").Value
Range("G31").Value = Worksheets("QA7").Range
("H11").Value
Range("H31").Value = Worksheets("QA7").Range
("I11").Value
Range("I31").Value = Worksheets("QA7").Range
("J11").Value
Range("J31").Value = Worksheets("QA7").Range
("K11").Value
Range("K31").Value = Worksheets("QA7").Range
("L11").Value
Range("L31").Value = Worksheets("QA7").Range
("M11").Value
Range("M31").Value = Worksheets("QA7").Range
("N11").Value
Range("N31").Value = Worksheets("QA7").Range
("O11").Value
Range("C49").Value = Worksheets("QA7").Range
("D12").Value
Range("D49").Value = Worksheets("QA7").Range
("E12").Value
Range("E49").Value = Worksheets("QA7").Range
("F12").Value
Range("F49").Value = Worksheets("QA7").Range
("G12").Value
Range("G49").Value = Worksheets("QA7").Range
("H12").Value
Range("H49").Value = Worksheets("QA7").Range
("I12").Value
Range("I49").Value = Worksheets("QA7").Range
("J12").Value
Range("J49").Value = Worksheets("QA7").Range
("K12").Value
Range("K49").Value = Worksheets("QA7").Range
("L12").Value
Range("L49").Value = Worksheets("QA7").Range
("M12").Value
Range("M49").Value = Worksheets("QA7").Range
("N12").Value
Range("N49").Value = Worksheets("QA7").Range
("O12").Value
Range("C78").Value = Worksheets("QA7").Range
("D13").Value
Range("D78").Value = Worksheets("QA7").Range
("E13").Value
Range("E78").Value = Worksheets("QA7").Range
("F13").Value
Range("F78").Value = Worksheets("QA7").Range
("G13").Value
Range("G78").Value = Worksheets("QA7").Range
("H13").Value
Range("H78").Value = Worksheets("QA7").Range
("I13").Value
Range("I78").Value = Worksheets("QA7").Range
("J13").Value
Range("J78").Value = Worksheets("QA7").Range
("K13").Value
Range("K78").Value = Worksheets("QA7").Range
("L13").Value
Range("L78").Value = Worksheets("QA7").Range
("M13").Value
Range("M78").Value = Worksheets("QA7").Range
("N13").Value
Range("N78").Value = Worksheets("QA7").Range
("O13").Value
Range("C96").Value = Worksheets("QA7").Range
("D14").Value
Range("D96").Value = Worksheets("QA7").Range
("E14").Value
Range("E96").Value = Worksheets("QA7").Range
("F14").Value
Range("F96").Value = Worksheets("QA7").Range
("G14").Value
Range("G96").Value = Worksheets("QA7").Range
("H14").Value
Range("H96").Value = Worksheets("QA7").Range
("I14").Value
Range("I96").Value = Worksheets("QA7").Range
("J14").Value
Range("J96").Value = Worksheets("QA7").Range
("K14").Value
Range("K96").Value = Worksheets("QA7").Range
("L14").Value
Range("L96").Value = Worksheets("QA7").Range
("M14").Value
Range("M96").Value = Worksheets("QA7").Range
("N14").Value
Range("N96").Value = Worksheets("QA7").Range
("O14").Value
Range("C114").Value = Worksheets("QA7").Range
("D16").Value
Range("D114").Value = Worksheets("QA7").Range
("E16").Value
Range("E114").Value = Worksheets("QA7").Range
("F16").Value
Range("F114").Value = Worksheets("QA7").Range
("G16").Value
Range("G114").Value = Worksheets("QA7").Range
("H16").Value
Range("H114").Value = Worksheets("QA7").Range
("I16").Value
Range("I114").Value = Worksheets("QA7").Range
("J16").Value
Range("J114").Value = Worksheets("QA7").Range
("K16").Value
Range("K114").Value = Worksheets("QA7").Range
("L16").Value
Range("L114").Value = Worksheets("QA7").Range
("M16").Value
Range("M114").Value = Worksheets("QA7").Range
("N16").Value
Range("N114").Value = Worksheets("QA7").Range
("O16").Value
Case 7 'Eighth item in list
Range("C5").Value = Worksheets("QA8").Range
("B4").Value
Range("C6").Value = Worksheets("QA8").Range
("E4").Value
Range("C13").Value = Worksheets("QA8").Range
("D6").Value
Range("D13").Value = Worksheets("QA8").Range
("E6").Value
Range("E13").Value = Worksheets("QA8").Range
("F6").Value
Range("F13").Value = Worksheets("QA8").Range
("G6").Value
Range("G13").Value = Worksheets("QA8").Range
("H6").Value
Range("H13").Value = Worksheets("QA8").Range
("I6").Value
Range("I13").Value = Worksheets("QA8").Range
("J6").Value
Range("J13").Value = Worksheets("QA8").Range
("K6").Value
Range("K13").Value = Worksheets("QA8").Range
("L6").Value
Range("L13").Value = Worksheets("QA8").Range
("M6").Value
Range("M13").Value = Worksheets("QA8").Range
("N6").Value
Range("N13").Value = Worksheets("QA8").Range
("O6").Value
Range("C14").Value = Worksheets("QA8").Range
("D9").Value
Range("D14").Value = Worksheets("QA8").Range
("E9").Value
Range("E14").Value = Worksheets("QA8").Range
("F9").Value
Range("F14").Value = Worksheets("QA8").Range
("G9").Value
Range("G14").Value = Worksheets("QA8").Range
("H9").Value
Range("H14").Value = Worksheets("QA8").Range
("I9").Value
Range("I14").Value = Worksheets("QA8").Range
("J9").Value
Range("J14").Value = Worksheets("QA8").Range
("K9").Value
Range("K14").Value = Worksheets("QA8").Range
("L9").Value
Range("L14").Value = Worksheets("QA8").Range
("M9").Value
Range("M14").Value = Worksheets("QA8").Range
("N9").Value
Range("N14").Value = Worksheets("QA8").Range
("O9").Value
Range("C31").Value = Worksheets("QA8").Range
("D11").Value
Range("D31").Value = Worksheets("QA8").Range
("E11").Value
Range("E31").Value = Worksheets("QA8").Range
("F11").Value
Range("F31").Value = Worksheets("QA8").Range
("G11").Value
Range("G31").Value = Worksheets("QA8").Range
("H11").Value
Range("H31").Value = Worksheets("QA8").Range
("I11").Value
Range("I31").Value = Worksheets("QA8").Range
("J11").Value
Range("J31").Value = Worksheets("QA8").Range
("K11").Value
Range("K31").Value = Worksheets("QA8").Range
("L11").Value
Range("L31").Value = Worksheets("QA8").Range
("M11").Value
Range("M31").Value = Worksheets("QA8").Range
("N11").Value
Range("N31").Value = Worksheets("QA8").Range
("O11").Value
Range("C49").Value = Worksheets("QA8").Range
("D12").Value
Range("D49").Value = Worksheets("QA8").Range
("E12").Value
Range("E49").Value = Worksheets("QA8").Range
("F12").Value
Range("F49").Value = Worksheets("QA8").Range
("G12").Value
Range("G49").Value = Worksheets("QA8").Range
("H12").Value
Range("H49").Value = Worksheets("QA8").Range
("I12").Value
Range("I49").Value = Worksheets("QA8").Range
("J12").Value
Range("J49").Value = Worksheets("QA8").Range
("K12").Value
Range("K49").Value = Worksheets("QA8").Range
("L12").Value
Range("L49").Value = Worksheets("QA8").Range
("M12").Value
Range("M49").Value = Worksheets("QA8").Range
("N12").Value
Range("N49").Value = Worksheets("QA8").Range
("O12").Value
Range("C78").Value = Worksheets("QA8").Range
("D13").Value
Range("D78").Value = Worksheets("QA8").Range
("E13").Value
Range("E78").Value = Worksheets("QA8").Range
("F13").Value
Range("F78").Value = Worksheets("QA8").Range
("G13").Value
Range("G78").Value = Worksheets("QA8").Range
("H13").Value
Range("H78").Value = Worksheets("QA8").Range
("I13").Value
Range("I78").Value = Worksheets("QA8").Range
("J13").Value
Range("J78").Value = Worksheets("QA8").Range
("K13").Value
Range("K78").Value = Worksheets("QA8").Range
("L13").Value
Range("L78").Value = Worksheets("QA8").Range
("M13").Value
Range("M78").Value = Worksheets("QA8").Range
("N13").Value
Range("N78").Value = Worksheets("QA8").Range
("O13").Value
Range("C96").Value = Worksheets("QA8").Range
("D14").Value
Range("D96").Value = Worksheets("QA8").Range
("E14").Value
Range("E96").Value = Worksheets("QA8").Range
("F14").Value
Range("F96").Value = Worksheets("QA8").Range
("G14").Value
Range("G96").Value = Worksheets("QA8").Range
("H14").Value
Range("H96").Value = Worksheets("QA8").Range
("I14").Value
Range("I96").Value = Worksheets("QA8").Range
("J14").Value
Range("J96").Value = Worksheets("QA8").Range
("K14").Value
Range("K96").Value = Worksheets("QA8").Range
("L14").Value
Range("L96").Value = Worksheets("QA8").Range
("M14").Value
Range("M96").Value = Worksheets("QA8").Range
("N14").Value
Range("N96").Value = Worksheets("QA8").Range
("O14").Value
Range("C114").Value = Worksheets("QA8").Range
("D16").Value
Range("D114").Value = Worksheets("QA8").Range
("E16").Value
Range("E114").Value = Worksheets("QA8").Range
("F16").Value
Range("F114").Value = Worksheets("QA8").Range
("G16").Value
Range("G114").Value = Worksheets("QA8").Range
("H16").Value
Range("H114").Value = Worksheets("QA8").Range
("I16").Value
Range("I114").Value = Worksheets("QA8").Range
("J16").Value
Range("J114").Value = Worksheets("QA8").Range
("K16").Value
Range("K114").Value = Worksheets("QA8").Range
("L16").Value
Range("L114").Value = Worksheets("QA8").Range
("M16").Value
Range("M114").Value = Worksheets("QA8").Range
("N16").Value
Range("N114").Value = Worksheets("QA8").Range
("O16").Value
Case 8 'Ninth item in list
Range("C5").Value = Worksheets("QA9").Range
("B4").Value
Range("C6").Value = Worksheets("QA9").Range
("E4").Value
Range("C13").Value = Worksheets("QA9").Range
("D6").Value
Range("D13").Value = Worksheets("QA9").Range
("E6").Value
Range("E13").Value = Worksheets("QA9").Range
("F6").Value
Range("F13").Value = Worksheets("QA9").Range
("G6").Value
Range("G13").Value = Worksheets("QA9").Range
("H6").Value
Range("H13").Value = Worksheets("QA9").Range
("I6").Value
Range("I13").Value = Worksheets("QA9").Range
("J6").Value
Range("J13").Value = Worksheets("QA9").Range
("K6").Value
Range("K13").Value = Worksheets("QA9").Range
("L6").Value
Range("L13").Value = Worksheets("QA9").Range
("M6").Value
Range("M13").Value = Worksheets("QA9").Range
("N6").Value
Range("N13").Value = Worksheets("QA9").Range
("O6").Value
Range("C14").Value = Worksheets("QA9").Range
("D9").Value
Range("D14").Value = Worksheets("QA9").Range
("E9").Value
Range("E14").Value = Worksheets("QA9").Range
("F9").Value
Range("F14").Value = Worksheets("QA9").Range
("G9").Value
Range("G14").Value = Worksheets("QA9").Range
("H9").Value
Range("H14").Value = Worksheets("QA9").Range
("I9").Value
Range("I14").Value = Worksheets("QA9").Range
("J9").Value
Range("J14").Value = Worksheets("QA9").Range
("K9").Value
Range("K14").Value = Worksheets("QA9").Range
("L9").Value
Range("L14").Value = Worksheets("QA9").Range
("M9").Value
Range("M14").Value = Worksheets("QA9").Range
("N9").Value
Range("N14").Value = Worksheets("QA9").Range
("O9").Value
Range("C31").Value = Worksheets("QA9").Range
("D11").Value
Range("D31").Value = Worksheets("QA9").Range
("E11").Value
Range("E31").Value = Worksheets("QA9").Range
("F11").Value
Range("F31").Value = Worksheets("QA9").Range
("G11").Value
Range("G31").Value = Worksheets("QA9").Range
("H11").Value
Range("H31").Value = Worksheets("QA9").Range
("I11").Value
Range("I31").Value = Worksheets("QA9").Range
("J11").Value
Range("J31").Value = Worksheets("QA9").Range
("K11").Value
Range("K31").Value = Worksheets("QA9").Range
("L11").Value
Range("L31").Value = Worksheets("QA9").Range
("M11").Value
Range("M31").Value = Worksheets("QA9").Range
("N11").Value
Range("N31").Value = Worksheets("QA9").Range
("O11").Value
Range("C49").Value = Worksheets("QA9").Range
("D12").Value
Range("D49").Value = Worksheets("QA9").Range
("E12").Value
Range("E49").Value = Worksheets("QA9").Range
("F12").Value
Range("F49").Value = Worksheets("QA9").Range
("G12").Value
Range("G49").Value = Worksheets("QA9").Range
("H12").Value
Range("H49").Value = Worksheets("QA9").Range
("I12").Value
Range("I49").Value = Worksheets("QA9").Range
("J12").Value
Range("J49").Value = Worksheets("QA9").Range
("K12").Value
Range("K49").Value = Worksheets("QA9").Range
("L12").Value
Range("L49").Value = Worksheets("QA9").Range
("M12").Value
Range("M49").Value = Worksheets("QA9").Range
("N12").Value
Range("N49").Value = Worksheets("QA9").Range
("O12").Value
Range("C78").Value = Worksheets("QA9").Range
("D13").Value
Range("D78").Value = Worksheets("QA9").Range
("E13").Value
Range("E78").Value = Worksheets("QA9").Range
("F13").Value
Range("F78").Value = Worksheets("QA9").Range
("G13").Value
Range("G78").Value = Worksheets("QA9").Range
("H13").Value
Range("H78").Value = Worksheets("QA9").Range
("I13").Value
Range("I78").Value = Worksheets("QA9").Range
("J13").Value
Range("J78").Value = Worksheets("QA9").Range
("K13").Value
Range("K78").Value = Worksheets("QA9").Range
("L13").Value
Range("L78").Value = Worksheets("QA9").Range
("M13").Value
Range("M78").Value = Worksheets("QA9").Range
("N13").Value
Range("N78").Value = Worksheets("QA9").Range
("O13").Value
Range("C96").Value = Worksheets("QA9").Range
("D14").Value
Range("D96").Value = Worksheets("QA9").Range
("E14").Value
Range("E96").Value = Worksheets("QA9").Range
("F14").Value
Range("F96").Value = Worksheets("QA9").Range
("G14").Value
Range("G96").Value = Worksheets("QA9").Range
("H14").Value
Range("H96").Value = Worksheets("QA9").Range
("I14").Value
Range("I96").Value = Worksheets("QA9").Range
("J14").Value
Range("J96").Value = Worksheets("QA9").Range
("K14").Value
Range("K96").Value = Worksheets("QA9").Range
("L14").Value
Range("L96").Value = Worksheets("QA9").Range
("M14").Value
Range("M96").Value = Worksheets("QA9").Range
("N14").Value
Range("N96").Value = Worksheets("QA9").Range
("O14").Value
Range("C114").Value = Worksheets("QA9").Range
("D16").Value
Range("D114").Value = Worksheets("QA9").Range
("E16").Value
Range("E114").Value = Worksheets("QA9").Range
("F16").Value
Range("F114").Value = Worksheets("QA9").Range
("G16").Value
Range("G114").Value = Worksheets("QA9").Range
("H16").Value
Range("H114").Value = Worksheets("QA9").Range
("I16").Value
Range("I114").Value = Worksheets("QA9").Range
("J16").Value
Range("J114").Value = Worksheets("QA9").Range
("K16").Value
Range("K114").Value = Worksheets("QA9").Range
("L16").Value
Range("L114").Value = Worksheets("QA9").Range
("M16").Value
Range("M114").Value = Worksheets("QA9").Range
("N16").Value
Range("N114").Value = Worksheets("QA9").Range
("O16").Value
Case 9 'Tenth item in list
Range("C5").Value = Worksheets("QA10").Range
("B4").Value
Range("C6").Value = Worksheets("QA10").Range
("E4").Value
Range("C13").Value = Worksheets("QA10").Range
("D6").Value
Range("D13").Value = Worksheets("QA10").Range
("E6").Value
Range("E13").Value = Worksheets("QA10").Range
("F6").Value
Range("F13").Value = Worksheets("QA10").Range
("G6").Value
Range("G13").Value = Worksheets("QA10").Range
("H6").Value
Range("H13").Value = Worksheets("QA10").Range
("I6").Value
Range("I13").Value = Worksheets("QA10").Range
("J6").Value
Range("J13").Value = Worksheets("QA10").Range
("K6").Value
Range("K13").Value = Worksheets("QA10").Range
("L6").Value
Range("L13").Value = Worksheets("QA10").Range
("M6").Value
Range("M13").Value = Worksheets("QA10").Range
("N6").Value
Range("N13").Value = Worksheets("QA10").Range
("O6").Value
Range("C14").Value = Worksheets("QA10").Range
("D9").Value
Range("D14").Value = Worksheets("QA10").Range
("E9").Value
Range("E14").Value = Worksheets("QA10").Range
("F9").Value
Range("F14").Value = Worksheets("QA10").Range
("G9").Value
Range("G14").Value = Worksheets("QA10").Range
("H9").Value
Range("H14").Value = Worksheets("QA10").Range
("I9").Value
Range("I14").Value = Worksheets("QA10").Range
("J9").Value
Range("J14").Value = Worksheets("QA10").Range
("K9").Value
Range("K14").Value = Worksheets("QA10").Range
("L9").Value
Range("L14").Value = Worksheets("QA10").Range
("M9").Value
Range("M14").Value = Worksheets("QA10").Range
("N9").Value
Range("N14").Value = Worksheets("QA10").Range
("O9").Value
Range("C31").Value = Worksheets("QA10").Range
("D11").Value
Range("D31").Value = Worksheets("QA10").Range
("E11").Value
Range("E31").Value = Worksheets("QA10").Range
("F11").Value
Range("F31").Value = Worksheets("QA10").Range
("G11").Value
Range("G31").Value = Worksheets("QA10").Range
("H11").Value
Range("H31").Value = Worksheets("QA10").Range
("I11").Value
Range("I31").Value = Worksheets("QA10").Range
("J11").Value
Range("J31").Value = Worksheets("QA10").Range
("K11").Value
Range("K31").Value = Worksheets("QA10").Range
("L11").Value
Range("L31").Value = Worksheets("QA10").Range
("M11").Value
Range("M31").Value = Worksheets("QA10").Range
("N11").Value
Range("N31").Value = Worksheets("QA10").Range
("O11").Value
Range("C49").Value = Worksheets("QA10").Range
("D12").Value
Range("D49").Value = Worksheets("QA10").Range
("E12").Value
Range("E49").Value = Worksheets("QA10").Range
("F12").Value
Range("F49").Value = Worksheets("QA10").Range
("G12").Value
Range("G49").Value = Worksheets("QA10").Range
("H12").Value
Range("H49").Value = Worksheets("QA10").Range
("I12").Value
Range("I49").Value = Worksheets("QA10").Range
("J12").Value
Range("J49").Value = Worksheets("QA10").Range
("K12").Value
Range("K49").Value = Worksheets("QA10").Range
("L12").Value
Range("L49").Value = Worksheets("QA10").Range
("M12").Value
Range("M49").Value = Worksheets("QA10").Range
("N12").Value
Range("N49").Value = Worksheets("QA10").Range
("O12").Value
Range("C78").Value = Worksheets("QA10").Range
("D13").Value
Range("D78").Value = Worksheets("QA10").Range
("E13").Value
Range("E78").Value = Worksheets("QA10").Range
("F13").Value
Range("F78").Value = Worksheets("QA10").Range
("G13").Value
Range("G78").Value = Worksheets("QA10").Range
("H13").Value
Range("H78").Value = Worksheets("QA10").Range
("I13").Value
Range("I78").Value = Worksheets("QA10").Range
("J13").Value
Range("J78").Value = Worksheets("QA10").Range
("K13").Value
Range("K78").Value = Worksheets("QA10").Range
("L13").Value
Range("L78").Value = Worksheets("QA10").Range
("M13").Value
Range("M78").Value = Worksheets("QA10").Range
("N13").Value
Range("N78").Value = Worksheets("QA10").Range
("O13").Value
Range("C96").Value = Worksheets("QA10").Range
("D14").Value
Range("D96").Value = Worksheets("QA10").Range
("E14").Value
Range("E96").Value = Worksheets("QA10").Range
("F14").Value
Range("F96").Value = Worksheets("QA10").Range
("G14").Value
Range("G96").Value = Worksheets("QA10").Range
("H14").Value
Range("H96").Value = Worksheets("QA10").Range
("I14").Value
Range("I96").Value = Worksheets("QA10").Range
("J14").Value
Range("J96").Value = Worksheets("QA10").Range
("K14").Value
Range("K96").Value = Worksheets("QA10").Range
("L14").Value
Range("L96").Value = Worksheets("QA10").Range
("M14").Value
Range("M96").Value = Worksheets("QA10").Range
("N14").Value
Range("N96").Value = Worksheets("QA10").Range
("O14").Value
Range("C114").Value = Worksheets("QA10").Range
("D16").Value
Range("D114").Value = Worksheets("QA10").Range
("E16").Value
Range("E114").Value = Worksheets("QA10").Range
("F16").Value
Range("F114").Value = Worksheets("QA10").Range
("G16").Value
Range("G114").Value = Worksheets("QA10").Range
("H16").Value
Range("H114").Value = Worksheets("QA10").Range
("I16").Value
Range("I114").Value = Worksheets("QA10").Range
("J16").Value
Range("J114").Value = Worksheets("QA10").Range
("K16").Value
Range("K114").Value = Worksheets("QA10").Range
("L16").Value
Range("L114").Value = Worksheets("QA10").Range
("M16").Value
Range("M114").Value = Worksheets("QA10").Range
("N16").Value
Range("N114").Value = Worksheets("QA10").Range
("O16").Value
Case 10 'Eleventh item in list
Range("C5").Value = Worksheets("QA11").Range
("B4").Value
Range("C6").Value = Worksheets("QA11").Range
("E4").Value
Range("C13").Value = Worksheets("QA11").Range
("D6").Value
Range("D13").Value = Worksheets("QA11").Range
("E6").Value
Range("E13").Value = Worksheets("QA11").Range
("F6").Value
Range("F13").Value = Worksheets("QA11").Range
("G6").Value
Range("G13").Value = Worksheets("QA11").Range
("H6").Value
Range("H13").Value = Worksheets("QA11").Range
("I6").Value
Range("I13").Value = Worksheets("QA11").Range
("J6").Value
Range("J13").Value = Worksheets("QA11").Range
("K6").Value
Range("K13").Value = Worksheets("QA11").Range
("L6").Value
Range("L13").Value = Worksheets("QA11").Range
("M6").Value
Range("M13").Value = Worksheets("QA11").Range
("N6").Value
Range("N13").Value = Worksheets("QA11").Range
("O6").Value
Range("C14").Value = Worksheets("QA11").Range
("D9").Value
Range("D14").Value = Worksheets("QA11").Range
("E9").Value
Range("E14").Value = Worksheets("QA11").Range
("F9").Value
Range("F14").Value = Worksheets("QA11").Range
("G9").Value
Range("G14").Value = Worksheets("QA11").Range
("H9").Value
Range("H14").Value = Worksheets("QA11").Range
("I9").Value
Range("I14").Value = Worksheets("QA11").Range
("J9").Value
Range("J14").Value = Worksheets("QA11").Range
("K9").Value
Range("K14").Value = Worksheets("QA11").Range
("L9").Value
Range("L14").Value = Worksheets("QA11").Range
("M9").Value
Range("M14").Value = Worksheets("QA11").Range
("N9").Value
Range("N14").Value = Worksheets("QA11").Range
("O9").Value
Range("C31").Value = Worksheets("QA11").Range
("D11").Value
Range("D31").Value = Worksheets("QA11").Range
("E11").Value
Range("E31").Value = Worksheets("QA11").Range
("F11").Value
Range("F31").Value = Worksheets("QA11").Range
("G11").Value
Range("G31").Value = Worksheets("QA11").Range
("H11").Value
Range("H31").Value = Worksheets("QA11").Range
("I11").Value
Range("I31").Value = Worksheets("QA11").Range
("J11").Value
Range("J31").Value = Worksheets("QA11").Range
("K11").Value
Range("K31").Value = Worksheets("QA11").Range
("L11").Value
Range("L31").Value = Worksheets("QA11").Range
("M11").Value
Range("M31").Value = Worksheets("QA11").Range
("N11").Value
Range("N31").Value = Worksheets("QA11").Range
("O11").Value
Range("C49").Value = Worksheets("QA11").Range
("D12").Value
Range("D49").Value = Worksheets("QA11").Range
("E12").Value
Range("E49").Value = Worksheets("QA11").Range
("F12").Value
Range("F49").Value = Worksheets("QA11").Range
("G12").Value
Range("G49").Value = Worksheets("QA11").Range
("H12").Value
Range("H49").Value = Worksheets("QA11").Range
("I12").Value
Range("I49").Value = Worksheets("QA11").Range
("J12").Value
Range("J49").Value = Worksheets("QA11").Range
("K12").Value
Range("K49").Value = Worksheets("QA11").Range
("L12").Value
Range("L49").Value = Worksheets("QA11").Range
("M12").Value
Range("M49").Value = Worksheets("QA11").Range
("N12").Value
Range("N49").Value = Worksheets("QA11").Range
("O12").Value
Range("C78").Value = Worksheets("QA11").Range
("D13").Value
Range("D78").Value = Worksheets("QA11").Range
("E13").Value
Range("E78").Value = Worksheets("QA11").Range
("F13").Value
Range("F78").Value = Worksheets("QA11").Range
("G13").Value
Range("G78").Value = Worksheets("QA11").Range
("H13").Value
Range("H78").Value = Worksheets("QA11").Range
("I13").Value
Range("I78").Value = Worksheets("QA11").Range
("J13").Value
Range("J78").Value = Worksheets("QA11").Range
("K13").Value
Range("K78").Value = Worksheets("QA11").Range
("L13").Value
Range("L78").Value = Worksheets("QA11").Range
("M13").Value
Range("M78").Value = Worksheets("QA11").Range
("N13").Value
Range("N78").Value = Worksheets("QA11").Range
("O13").Value
Range("C96").Value = Worksheets("QA11").Range
("D14").Value
Range("D96").Value = Worksheets("QA11").Range
("E14").Value
Range("E96").Value = Worksheets("QA11").Range
("F14").Value
Range("F96").Value = Worksheets("QA11").Range
("G14").Value
Range("G96").Value = Worksheets("QA11").Range
("H14").Value
Range("H96").Value = Worksheets("QA11").Range
("I14").Value
Range("I96").Value = Worksheets("QA11").Range
("J14").Value
Range("J96").Value = Worksheets("QA11").Range
("K14").Value
Range("K96").Value = Worksheets("QA11").Range
("L14").Value
Range("L96").Value = Worksheets("QA11").Range
("M14").Value
Range("M96").Value = Worksheets("QA11").Range
("N14").Value
Range("N96").Value = Worksheets("QA11").Range
("O14").Value
Range("C114").Value = Worksheets("QA11").Range
("D16").Value
Range("D114").Value = Worksheets("QA11").Range
("E16").Value
Range("E114").Value = Worksheets("QA11").Range
("F16").Value
Range("F114").Value = Worksheets("QA11").Range
("G16").Value
Range("G114").Value = Worksheets("QA11").Range
("H16").Value
Range("H114").Value = Worksheets("QA11").Range
("I16").Value
Range("I114").Value = Worksheets("QA11").Range
("J16").Value
Range("J114").Value = Worksheets("QA11").Range
("K16").Value
Range("K114").Value = Worksheets("QA11").Range
("L16").Value
Range("L114").Value = Worksheets("QA11").Range
("M16").Value
Range("M114").Value = Worksheets("QA11").Range
("N16").Value
Range("N114").Value = Worksheets("QA11").Range
("O16").Value
Case 11 'Twelfth item in list
Range("C5").Value = Worksheets("QA12").Range
("B4").Value
Range("C6").Value = Worksheets("QA12").Range
("E4").Value
Range("C13").Value = Worksheets("QA12").Range
("D6").Value
Range("D13").Value = Worksheets("QA12").Range
("E6").Value
Range("E13").Value = Worksheets("QA12").Range
("F6").Value
Range("F13").Value = Worksheets("QA12").Range
("G6").Value
Range("G13").Value = Worksheets("QA12").Range
("H6").Value
Range("H13").Value = Worksheets("QA12").Range
("I6").Value
Range("I13").Value = Worksheets("QA12").Range
("J6").Value
Range("J13").Value = Worksheets("QA12").Range
("K6").Value
Range("K13").Value = Worksheets("QA12").Range
("L6").Value
Range("L13").Value = Worksheets("QA12").Range
("M6").Value
Range("M13").Value = Worksheets("QA12").Range
("N6").Value
Range("N13").Value = Worksheets("QA12").Range
("O6").Value
Range("C14").Value = Worksheets("QA12").Range
("D9").Value
Range("D14").Value = Worksheets("QA12").Range
("E9").Value
Range("E14").Value = Worksheets("QA12").Range
("F9").Value
Range("F14").Value = Worksheets("QA12").Range
("G9").Value
Range("G14").Value = Worksheets("QA12").Range
("H9").Value
Range("H14").Value = Worksheets("QA12").Range
("I9").Value
Range("I14").Value = Worksheets("QA12").Range
("J9").Value
Range("J14").Value = Worksheets("QA12").Range
("K9").Value
Range("K14").Value = Worksheets("QA12").Range
("L9").Value
Range("L14").Value = Worksheets("QA12").Range
("M9").Value
Range("M14").Value = Worksheets("QA12").Range
("N9").Value
Range("N14").Value = Worksheets("QA12").Range
("O9").Value
Range("C31").Value = Worksheets("QA12").Range
("D11").Value
Range("D31").Value = Worksheets("QA12").Range
("E11").Value
Range("E31").Value = Worksheets("QA12").Range
("F11").Value
Range("F31").Value = Worksheets("QA12").Range
("G11").Value
Range("G31").Value = Worksheets("QA12").Range
("H11").Value
Range("H31").Value = Worksheets("QA12").Range
("I11").Value
Range("I31").Value = Worksheets("QA12").Range
("J11").Value
Range("J31").Value = Worksheets("QA12").Range
("K11").Value
Range("K31").Value = Worksheets("QA12").Range
("L11").Value
Range("L31").Value = Worksheets("QA12").Range
("M11").Value
Range("M31").Value = Worksheets("QA12").Range
("N11").Value
Range("N31").Value = Worksheets("QA12").Range
("O11").Value
Range("C49").Value = Worksheets("QA12").Range
("D12").Value
Range("D49").Value = Worksheets("QA12").Range
("E12").Value
Range("E49").Value = Worksheets("QA12").Range
("F12").Value
Range("F49").Value = Worksheets("QA12").Range
("G12").Value
Range("G49").Value = Worksheets("QA12").Range
("H12").Value
Range("H49").Value = Worksheets("QA12").Range
("I12").Value
Range("I49").Value = Worksheets("QA12").Range
("J12").Value
Range("J49").Value = Worksheets("QA12").Range
("K12").Value
Range("K49").Value = Worksheets("QA12").Range
("L12").Value
Range("L49").Value = Worksheets("QA12").Range
("M12").Value
Range("M49").Value = Worksheets("QA12").Range
("N12").Value
Range("N49").Value = Worksheets("QA12").Range
("O12").Value
Range("C78").Value = Worksheets("QA12").Range
("D13").Value
Range("D78").Value = Worksheets("QA12").Range
("E13").Value
Range("E78").Value = Worksheets("QA12").Range
("F13").Value
Range("F78").Value = Worksheets("QA12").Range
("G13").Value
Range("G78").Value = Worksheets("QA12").Range
("H13").Value
Range("H78").Value = Worksheets("QA12").Range
("I13").Value
Range("I78").Value = Worksheets("QA12").Range
("J13").Value
Range("J78").Value = Worksheets("QA12").Range
("K13").Value
Range("K78").Value = Worksheets("QA12").Range
("L13").Value
Range("L78").Value = Worksheets("QA12").Range
("M13").Value
Range("M78").Value = Worksheets("QA12").Range
("N13").Value
Range("N78").Value = Worksheets("QA12").Range
("O13").Value
Range("C96").Value = Worksheets("QA12").Range
("D14").Value
Range("D96").Value = Worksheets("QA12").Range
("E14").Value
Range("E96").Value = Worksheets("QA12").Range
("F14").Value
Range("F96").Value = Worksheets("QA12").Range
("G14").Value
Range("G96").Value = Worksheets("QA12").Range
("H14").Value
Range("H96").Value = Worksheets("QA12").Range
("I14").Value
Range("I96").Value = Worksheets("QA12").Range
("J14").Value
Range("J96").Value = Worksheets("QA12").Range
("K14").Value
Range("K96").Value = Worksheets("QA12").Range
("L14").Value
Range("L96").Value = Worksheets("QA12").Range
("M14").Value
Range("M96").Value = Worksheets("QA12").Range
("N14").Value
Range("N96").Value = Worksheets("QA12").Range
("O14").Value
Range("C114").Value = Worksheets("QA12").Range
("D16").Value
Range("D114").Value = Worksheets("QA12").Range
("E16").Value
Range("E114").Value = Worksheets("QA12").Range
("F16").Value
Range("F114").Value = Worksheets("QA12").Range
("G16").Value
Range("G114").Value = Worksheets("QA12").Range
("H16").Value
Range("H114").Value = Worksheets("QA12").Range
("I16").Value
Range("I114").Value = Worksheets("QA12").Range
("J16").Value
Range("J114").Value = Worksheets("QA12").Range
("K16").Value
Range("K114").Value = Worksheets("QA12").Range
("L16").Value
Range("L114").Value = Worksheets("QA12").Range
("M16").Value
Range("M114").Value = Worksheets("QA12").Range
("N16").Value
Range("N114").Value = Worksheets("QA12").Range
("O16").Value
Case 12 'Thirteenth item in list
Range("C5").Value = Worksheets("QA13").Range
("B4").Value
Range("C6").Value = Worksheets("QA13").Range
("E4").Value
Range("C13").Value = Worksheets("QA13").Range
("D6").Value
Range("D13").Value = Worksheets("QA13").Range
("E6").Value
Range("E13").Value = Worksheets("QA13").Range
("F6").Value
Range("F13").Value = Worksheets("QA13").Range
("G6").Value
Range("G13").Value = Worksheets("QA13").Range
("H6").Value
Range("H13").Value = Worksheets("QA13").Range
("I6").Value
Range("I13").Value = Worksheets("QA13").Range
("J6").Value
Range("J13").Value = Worksheets("QA13").Range
("K6").Value
Range("K13").Value = Worksheets("QA13").Range
("L6").Value
Range("L13").Value = Worksheets("QA13").Range
("M6").Value
Range("M13").Value = Worksheets("QA13").Range
("N6").Value
Range("N13").Value = Worksheets("QA13").Range
("O6").Value
Range("C14").Value = Worksheets("QA13").Range
("D9").Value
Range("D14").Value = Worksheets("QA13").Range
("E9").Value
Range("E14").Value = Worksheets("QA13").Range
("F9").Value
Range("F14").Value = Worksheets("QA13").Range
("G9").Value
Range("G14").Value = Worksheets("QA13").Range
("H9").Value
Range("H14").Value = Worksheets("QA13").Range
("I9").Value
Range("I14").Value = Worksheets("QA13").Range
("J9").Value
Range("J14").Value = Worksheets("QA13").Range
("K9").Value
Range("K14").Value = Worksheets("QA13").Range
("L9").Value
Range("L14").Value = Worksheets("QA13").Range
("M9").Value
Range("M14").Value = Worksheets("QA13").Range
("N9").Value
Range("N14").Value = Worksheets("QA13").Range
("O9").Value
Range("C31").Value = Worksheets("QA13").Range
("D11").Value
Range("D31").Value = Worksheets("QA13").Range
("E11").Value
Range("E31").Value = Worksheets("QA13").Range
("F11").Value
Range("F31").Value = Worksheets("QA13").Range
("G11").Value
Range("G31").Value = Worksheets("QA13").Range
("H11").Value
Range("H31").Value = Worksheets("QA13").Range
("I11").Value
Range("I31").Value = Worksheets("QA13").Range
("J11").Value
Range("J31").Value = Worksheets("QA13").Range
("K11").Value
Range("K31").Value = Worksheets("QA13").Range
("L11").Value
Range("L31").Value = Worksheets("QA13").Range
("M11").Value
Range("M31").Value = Worksheets("QA13").Range
("N11").Value
Range("N31").Value = Worksheets("QA13").Range
("O11").Value
Range("C49").Value = Worksheets("QA13").Range
("D12").Value
Range("D49").Value = Worksheets("QA13").Range
("E12").Value
Range("E49").Value = Worksheets("QA13").Range
("F12").Value
Range("F49").Value = Worksheets("QA13").Range
("G12").Value
Range("G49").Value = Worksheets("QA13").Range
("H12").Value
Range("H49").Value = Worksheets("QA13").Range
("I12").Value
Range("I49").Value = Worksheets("QA13").Range
("J12").Value
Range("J49").Value = Worksheets("QA13").Range
("K12").Value
Range("K49").Value = Worksheets("QA13").Range
("L12").Value
Range("L49").Value = Worksheets("QA13").Range
("M12").Value
Range("M49").Value = Worksheets("QA13").Range
("N12").Value
Range("N49").Value = Worksheets("QA13").Range
("O12").Value
Range("C78").Value = Worksheets("QA13").Range
("D13").Value
Range("D78").Value = Worksheets("QA13").Range
("E13").Value
Range("E78").Value = Worksheets("QA13").Range
("F13").Value
Range("F78").Value = Worksheets("QA13").Range
("G13").Value
Range("G78").Value = Worksheets("QA13").Range
("H13").Value
Range("H78").Value = Worksheets("QA13").Range
("I13").Value
Range("I78").Value = Worksheets("QA13").Range
("J13").Value
Range("J78").Value = Worksheets("QA13").Range
("K13").Value
Range("K78").Value = Worksheets("QA13").Range
("L13").Value
Range("L78").Value = Worksheets("QA13").Range
("M13").Value
Range("M78").Value = Worksheets("QA13").Range
("N13").Value
Range("N78").Value = Worksheets("QA13").Range
("O13").Value
Range("C96").Value = Worksheets("QA13").Range
("D14").Value
Range("D96").Value = Worksheets("QA13").Range
("E14").Value
Range("E96").Value = Worksheets("QA13").Range
("F14").Value
Range("F96").Value = Worksheets("QA13").Range
("G14").Value
Range("G96").Value = Worksheets("QA13").Range
("H14").Value
Range("H96").Value = Worksheets("QA13").Range
("I14").Value
Range("I96").Value = Worksheets("QA13").Range
("J14").Value
Range("J96").Value = Worksheets("QA13").Range
("K14").Value
Range("K96").Value = Worksheets("QA13").Range
("L14").Value
Range("L96").Value = Worksheets("QA13").Range
("M14").Value
Range("M96").Value = Worksheets("QA13").Range
("N14").Value
Range("N96").Value = Worksheets("QA13").Range
("O14").Value
Range("C114").Value = Worksheets("QA13").Range
("D16").Value
Range("D114").Value = Worksheets("QA13").Range
("E16").Value
Range("E114").Value = Worksheets("QA13").Range
("F16").Value
Range("F114").Value = Worksheets("QA13").Range
("G16").Value
Range("G114").Value = Worksheets("QA13").Range
("H16").Value
Range("H114").Value = Worksheets("QA13").Range
("I16").Value
Range("I114").Value = Worksheets("QA13").Range
("J16").Value
Range("J114").Value = Worksheets("QA13").Range
("K16").Value
Range("K114").Value = Worksheets("QA13").Range
("L16").Value
Range("L114").Value = Worksheets("QA13").Range
("M16").Value
Range("M114").Value = Worksheets("QA13").Range
("N16").Value
Range("N114").Value = Worksheets("QA13").Range
("O16").Value
Case 13 'Fourteenth item in list
Range("C5").Value = Worksheets("QA14").Range
("B4").Value
Range("C6").Value = Worksheets("QA14").Range
("E4").Value
Range("C13").Value = Worksheets("QA14").Range
("D6").Value
Range("D13").Value = Worksheets("QA14").Range
("E6").Value
Range("E13").Value = Worksheets("QA14").Range
("F6").Value
Range("F13").Value = Worksheets("QA14").Range
("G6").Value
Range("G13").Value = Worksheets("QA14").Range
("H6").Value
Range("H13").Value = Worksheets("QA14").Range
("I6").Value
Range("I13").Value = Worksheets("QA14").Range
("J6").Value
Range("J13").Value = Worksheets("QA14").Range
("K6").Value
Range("K13").Value = Worksheets("QA14").Range
("L6").Value
Range("L13").Value = Worksheets("QA14").Range
("M6").Value
Range("M13").Value = Worksheets("QA14").Range
("N6").Value
Range("N13").Value = Worksheets("QA14").Range
("O6").Value
Range("C14").Value = Worksheets("QA14").Range
("D9").Value
Range("D14").Value = Worksheets("QA14").Range
("E9").Value
Range("E14").Value = Worksheets("QA14").Range
("F9").Value
Range("F14").Value = Worksheets("QA14").Range
("G9").Value
Range("G14").Value = Worksheets("QA14").Range
("H9").Value
Range("H14").Value = Worksheets("QA14").Range
("I9").Value
Range("I14").Value = Worksheets("QA14").Range
("J9").Value
Range("J14").Value = Worksheets("QA14").Range
("K9").Value
Range("K14").Value = Worksheets("QA14").Range
("L9").Value
Range("L14").Value = Worksheets("QA14").Range
("M9").Value
Range("M14").Value = Worksheets("QA14").Range
("N9").Value
Range("N14").Value = Worksheets("QA14").Range
("O9").Value
Range("C31").Value = Worksheets("QA14").Range
("D11").Value
Range("D31").Value = Worksheets("QA14").Range
("E11").Value
Range("E31").Value = Worksheets("QA14").Range
("F11").Value
Range("F31").Value = Worksheets("QA14").Range
("G11").Value
Range("G31").Value = Worksheets("QA14").Range
("H11").Value
Range("H31").Value = Worksheets("QA14").Range
("I11").Value
Range("I31").Value = Worksheets("QA14").Range
("J11").Value
Range("J31").Value = Worksheets("QA14").Range
("K11").Value
Range("K31").Value = Worksheets("QA14").Range
("L11").Value
Range("L31").Value = Worksheets("QA14").Range
("M11").Value
Range("M31").Value = Worksheets("QA14").Range
("N11").Value
Range("N31").Value = Worksheets("QA14").Range
("O11").Value
Range("C49").Value = Worksheets("QA14").Range
("D12").Value
Range("D49").Value = Worksheets("QA14").Range
("E12").Value
Range("E49").Value = Worksheets("QA14").Range
("F12").Value
Range("F49").Value = Worksheets("QA14").Range
("G12").Value
Range("G49").Value = Worksheets("QA14").Range
("H12").Value
Range("H49").Value = Worksheets("QA14").Range
("I12").Value
Range("I49").Value = Worksheets("QA14").Range
("J12").Value
Range("J49").Value = Worksheets("QA14").Range
("K12").Value
Range("K49").Value = Worksheets("QA14").Range
("L12").Value
Range("L49").Value = Worksheets("QA14").Range
("M12").Value
Range("M49").Value = Worksheets("QA14").Range
("N12").Value
Range("N49").Value = Worksheets("QA14").Range
("O12").Value
Range("C78").Value = Worksheets("QA14").Range
("D13").Value
Range("D78").Value = Worksheets("QA14").Range
("E13").Value
Range("E78").Value = Worksheets("QA14").Range
("F13").Value
Range("F78").Value = Worksheets("QA14").Range
("G13").Value
Range("G78").Value = Worksheets("QA14").Range
("H13").Value
Range("H78").Value = Worksheets("QA14").Range
("I13").Value
Range("I78").Value = Worksheets("QA14").Range
("J13").Value
Range("J78").Value = Worksheets("QA14").Range
("K13").Value
Range("K78").Value = Worksheets("QA14").Range
("L13").Value
Range("L78").Value = Worksheets("QA14").Range
("M13").Value
Range("M78").Value = Worksheets("QA14").Range
("N13").Value
Range("N78").Value = Worksheets("QA14").Range
("O13").Value
Range("C96").Value = Worksheets("QA14").Range
("D14").Value
Range("D96").Value = Worksheets("QA14").Range
("E14").Value
Range("E96").Value = Worksheets("QA14").Range
("F14").Value
Range("F96").Value = Worksheets("QA14").Range
("G14").Value
Range("G96").Value = Worksheets("QA14").Range
("H14").Value
Range("H96").Value = Worksheets("QA14").Range
("I14").Value
Range("I96").Value = Worksheets("QA14").Range
("J14").Value
Range("J96").Value = Worksheets("QA14").Range
("K14").Value
Range("K96").Value = Worksheets("QA14").Range
("L14").Value
Range("L96").Value = Worksheets("QA14").Range
("M14").Value
Range("M96").Value = Worksheets("QA14").Range
("N14").Value
Range("N96").Value = Worksheets("QA14").Range
("O14").Value
Range("C114").Value = Worksheets("QA14").Range
("D16").Value
Range("D114").Value = Worksheets("QA14").Range
("E16").Value
Range("E114").Value = Worksheets("QA14").Range
("F16").Value
Range("F114").Value = Worksheets("QA14").Range
("G16").Value
Range("G114").Value = Worksheets("QA14").Range
("H16").Value
Range("H114").Value = Worksheets("QA14").Range
("I16").Value
Range("I114").Value = Worksheets("QA14").Range
("J16").Value
Range("J114").Value = Worksheets("QA14").Range
("K16").Value
Range("K114").Value = Worksheets("QA14").Range
("L16").Value
Range("L114").Value = Worksheets("QA14").Range
("M16").Value
Range("M114").Value = Worksheets("QA14").Range
("N16").Value
Range("N114").Value = Worksheets("QA14").Range
("O16").Value
Case 14 'Fifteenth item in list
Range("C5").Value = Worksheets("QA15").Range
("B4").Value
Range("C6").Value = Worksheets("QA15").Range
("E4").Value
Range("C13").Value = Worksheets("QA15").Range
("D6").Value
Range("D13").Value = Worksheets("QA15").Range
("E6").Value
Range("E13").Value = Worksheets("QA15").Range
("F6").Value
Range("F13").Value = Worksheets("QA15").Range
("G6").Value
Range("G13").Value = Worksheets("QA15").Range
("H6").Value
Range("H13").Value = Worksheets("QA15").Range
("I6").Value
Range("I13").Value = Worksheets("QA15").Range
("J6").Value
Range("J13").Value = Worksheets("QA15").Range
("K6").Value
Range("K13").Value = Worksheets("QA15").Range
("L6").Value
Range("L13").Value = Worksheets("QA15").Range
("M6").Value
Range("M13").Value = Worksheets("QA15").Range
("N6").Value
Range("N13").Value = Worksheets("QA15").Range
("O6").Value
Range("C14").Value = Worksheets("QA15").Range
("D9").Value
Range("D14").Value = Worksheets("QA15").Range
("E9").Value
Range("E14").Value = Worksheets("QA15").Range
("F9").Value
Range("F14").Value = Worksheets("QA15").Range
("G9").Value
Range("G14").Value = Worksheets("QA15").Range
("H9").Value
Range("H14").Value = Worksheets("QA15").Range
("I9").Value
Range("I14").Value = Worksheets("QA15").Range
("J9").Value
Range("J14").Value = Worksheets("QA15").Range
("K9").Value
Range("K14").Value = Worksheets("QA15").Range
("L9").Value
Range("L14").Value = Worksheets("QA15").Range
("M9").Value
Range("M14").Value = Worksheets("QA15").Range
("N9").Value
Range("N14").Value = Worksheets("QA15").Range
("O9").Value
Range("C31").Value = Worksheets("QA15").Range
("D11").Value
Range("D31").Value = Worksheets("QA15").Range
("E11").Value
Range("E31").Value = Worksheets("QA15").Range
("F11").Value
Range("F31").Value = Worksheets("QA15").Range
("G11").Value
Range("G31").Value = Worksheets("QA15").Range
("H11").Value
Range("H31").Value = Worksheets("QA15").Range
("I11").Value
Range("I31").Value = Worksheets("QA15").Range
("J11").Value
Range("J31").Value = Worksheets("QA15").Range
("K11").Value
Range("K31").Value = Worksheets("QA15").Range
("L11").Value
Range("L31").Value = Worksheets("QA15").Range
("M11").Value
Range("M31").Value = Worksheets("QA15").Range
("N11").Value
Range("N31").Value = Worksheets("QA15").Range
("O11").Value
Range("C49").Value = Worksheets("QA15").Range
("D12").Value
Range("D49").Value = Worksheets("QA15").Range
("E12").Value
Range("E49").Value = Worksheets("QA15").Range
("F12").Value
Range("F49").Value = Worksheets("QA15").Range
("G12").Value
Range("G49").Value = Worksheets("QA15").Range
("H12").Value
Range("H49").Value = Worksheets("QA15").Range
("I12").Value
Range("I49").Value = Worksheets("QA15").Range
("J12").Value
Range("J49").Value = Worksheets("QA15").Range
("K12").Value
Range("K49").Value = Worksheets("QA15").Range
("L12").Value
Range("L49").Value = Worksheets("QA15").Range
("M12").Value
Range("M49").Value = Worksheets("QA15").Range
("N12").Value
Range("N49").Value = Worksheets("QA15").Range
("O12").Value
Range("C78").Value = Worksheets("QA15").Range
("D13").Value
Range("D78").Value = Worksheets("QA15").Range
("E13").Value
Range("E78").Value = Worksheets("QA15").Range
("F13").Value
Range("F78").Value = Worksheets("QA15").Range
("G13").Value
Range("G78").Value = Worksheets("QA15").Range
("H13").Value
Range("H78").Value = Worksheets("QA15").Range
("I13").Value
Range("I78").Value = Worksheets("QA15").Range
("J13").Value
Range("J78").Value = Worksheets("QA15").Range
("K13").Value
Range("K78").Value = Worksheets("QA15").Range
("L13").Value
Range("L78").Value = Worksheets("QA15").Range
("M13").Value
Range("M78").Value = Worksheets("QA15").Range
("N13").Value
Range("N78").Value = Worksheets("QA15").Range
("O13").Value
Range("C96").Value = Worksheets("QA15").Range
("D14").Value
Range("D96").Value = Worksheets("QA15").Range
("E14").Value
Range("E96").Value = Worksheets("QA15").Range
("F14").Value
Range("F96").Value = Worksheets("QA15").Range
("G14").Value
Range("G96").Value = Worksheets("QA15").Range
("H14").Value
Range("H96").Value = Worksheets("QA15").Range
("I14").Value
Range("I96").Value = Worksheets("QA15").Range
("J14").Value
Range("J96").Value = Worksheets("QA15").Range
("K14").Value
Range("K96").Value = Worksheets("QA15").Range
("L14").Value
Range("L96").Value = Worksheets("QA15").Range
("M14").Value
Range("M96").Value = Worksheets("QA15").Range
("N14").Value
Range("N96").Value = Worksheets("QA15").Range
("O14").Value
Range("C114").Value = Worksheets("QA15").Range
("D16").Value
Range("D114").Value = Worksheets("QA15").Range
("E16").Value
Range("E114").Value = Worksheets("QA15").Range
("F16").Value
Range("F114").Value = Worksheets("QA15").Range
("G16").Value
Range("G114").Value = Worksheets("QA15").Range
("H16").Value
Range("H114").Value = Worksheets("QA15").Range
("I16").Value
Range("I114").Value = Worksheets("QA15").Range
("J16").Value
Range("J114").Value = Worksheets("QA15").Range
("K16").Value
Range("K114").Value = Worksheets("QA15").Range
("L16").Value
Range("L114").Value = Worksheets("QA15").Range
("M16").Value
Range("M114").Value = Worksheets("QA15").Range
("N16").Value
Range("N114").Value = Worksheets("QA15").Range
("O16").Value
End Select
End Sub
 
J

John Wilson

Mark,

That's a lot of tedious typing that you did.

Along with what Steve gave you regarding shortening the
actual lines of code, you can split this up into separate
(smaller) subs in this fashion:

What you have now:
Case1
' lots of code
Case2
'lots of code
Case3
'lots of code
' etc.

What you can do:
Create a new sub named "Sub myCase0()"
Into that sub, move all of the Case0 code.
Create another sub named "Sub myCase1()"
Into that sub, move all of the Case1 code.
Do the same for the rest of the Cases

Now, in your main sub just call those other subs:
e.g.

Private Sub Up1_Click()
Select Case LB1.ListIndex
Case 0 'First item in list
myCase0
Case1
myCase1
'etc.

John
 
M

Myrna Larson

Typo, Tom. Should be

For i = 0 To 6

not 7. But I prefer Lbound and UBound, to avoid errors if there's an Option Base 1 statement at
the top of the module.
 
T

Tom Ogilvy

Thanks for the typo correction. I usually use Lbound and Ubound as well.

Regards,
Tom Ogilvy
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Code to Slooooooow 2
Macro to find and copy to another sheet 4
Splitting Procedures 4
I need smaller code. 3
A better Macro for Copying Data 2
Loop for if then calculation 11
Run-Time error '-2147417848 (80010108)': Automation error The object invoked has disconnected from 0
Run-Time error '-2147417848 (80010108)': Automation error The object invoked has disconnected from 0

Top