Too many lines of code

O

Oldbill62

New Member
Joined
Nov 26, 2014
Messages
23
Hi all
I have managed to write the following code which does the job. However I am sure there must be a better way of doing it. Any help is appreciated
Code: 
   Private Sub worksheet_Change(ByVal target As Range)   














Sheets("Report1").Range("B14").Value = Sheets("Download").Range("A4").Value
Sheets("Report1").Range("B15").Value = Sheets("Download").Range("b4").Value
Sheets("Report1").Range("B16").Value = Sheets("Download").Range("c4").Value
Sheets("Report1").Range("B17").Value = Sheets("Download").Range("i4").Value
Sheets("Report1").Range("B18").Value = Sheets("Download").Range("j4").Value
Sheets("Report1").Range("B19").Value = Sheets("Download").Range("L4").Value
Sheets("Report1").Range("e8").Value = Sheets("Download").Range("k4").Value
Sheets("Report1").Range("E9").Value = Sheets("Download").Range("O4").Value
Sheets("Report1").Range("E14").Value = Sheets("Download").Range("E4").Value
Sheets("Report1").Range("E15").Value = Sheets("Download").Range("F4").Value
Sheets("Report1").Range("E16").Value = Sheets("Download").Range("H4").Value
Sheets("Report1").Range("E18").Value = Sheets("Download").Range("M4").Value
Sheets("Report1").Range("F24").Value = Sheets("Download").Range("AM4").Value
Sheets("Report1").Range("F25").Value = Sheets("Download").Range("AN4").Value
Sheets("Report1").Range("F26").Value = Sheets("Download").Range("AL4").Value
Sheets("Report1").Range("F27").Value = Sheets("Download").Range("AO4").Value
Sheets("Report1").Range("F28").Value = Sheets("Download").Range("AP4").Value
Sheets("Report1").Range("F29").Value = Sheets("Download").Range("AQ4").Value
Sheets("Report1").Range("A31").Value = Sheets("Download").Range("AJ4").Value
Sheets("Report1").Range("B37").Value = Sheets("Download").Range("AD4").Value
Sheets("Report1").Range("B38").Value = Sheets("Download").Range("AE4").Value
Sheets("Report1").Range("B39").Value = Sheets("Download").Range("AF4").Value
Sheets("Report1").Range("B40").Value = Sheets("Download").Range("AG4").Value
Sheets("Report1").Range("B41").Value = Sheets("Download").Range("AH4").Value
Sheets("Report1").Range("D37").Value = Sheets("Download").Range("Y4").Value
Sheets("Report1").Range("D38").Value = Sheets("Download").Range("AA4").Value
Sheets("Report1").Range("D39").Value = Sheets("Download").Range("Z4").Value
Sheets("Report1").Range("D40").Value = Sheets("Download").Range("Ab4").Value
Sheets("Report1").Range("D42").Value = Sheets("Download").Range("AI4").Value
Sheets("Report1").Range("D49").Value = Sheets("Download").Range("AX4").Value
Sheets("Report1").Range("A55").Value = Sheets("Download").Range("AK4").Value




  Sheets("Report2").Range("B14").Value = Sheets("Download").Range("A5").Value
  Sheets("Report2").Range("B15").Value = Sheets("Download").Range("b5").Value
  Sheets("Report2").Range("B16").Value = Sheets("Download").Range("c5").Value
  Sheets("Report2").Range("B17").Value = Sheets("Download").Range("i5").Value
  Sheets("Report2").Range("B18").Value = Sheets("Download").Range("j5").Value
  Sheets("Report2").Range("B19").Value = Sheets("Download").Range("L5").Value
  Sheets("Report2").Range("e8").Value = Sheets("Download").Range("k5").Value
  Sheets("Report2").Range("E9").Value = Sheets("Download").Range("O5").Value
  Sheets("Report2").Range("E14").Value = Sheets("Download").Range("E5").Value
  Sheets("Report2").Range("E15").Value = Sheets("Download").Range("F5").Value
  Sheets("Report2").Range("E16").Value = Sheets("Download").Range("H5").Value
  Sheets("Report2").Range("E18").Value = Sheets("Download").Range("M5").Value
  Sheets("Report2").Range("F24").Value = Sheets("Download").Range("AM5").Value
  Sheets("Report2").Range("F25").Value = Sheets("Download").Range("AN5").Value
  Sheets("Report2").Range("F26").Value = Sheets("Download").Range("AL5").Value
  Sheets("Report2").Range("F27").Value = Sheets("Download").Range("AO5").Value
  Sheets("Report2").Range("F28").Value = Sheets("Download").Range("AP5").Value
  Sheets("Report2").Range("F29").Value = Sheets("Download").Range("AQ5").Value
  Sheets("Report2").Range("A31").Value = Sheets("Download").Range("AJ5").Value
  Sheets("Report2").Range("B37").Value = Sheets("Download").Range("AD5").Value
  Sheets("Report2").Range("B38").Value = Sheets("Download").Range("AE5").Value
  Sheets("Report2").Range("B39").Value = Sheets("Download").Range("AF5").Value
  Sheets("Report2").Range("B40").Value = Sheets("Download").Range("AG5").Value
  Sheets("Report2").Range("B41").Value = Sheets("Download").Range("AH5").Value
  Sheets("Report2").Range("D37").Value = Sheets("Download").Range("Y5").Value
  Sheets("Report2").Range("D38").Value = Sheets("Download").Range("AA5").Value
  Sheets("Report2").Range("D39").Value = Sheets("Download").Range("Z5").Value
  Sheets("Report2").Range("D40").Value = Sheets("Download").Range("Ab5").Value
  Sheets("Report2").Range("D42").Value = Sheets("Download").Range("AI5").Value
  Sheets("Report2").Range("D49").Value = Sheets("Download").Range("AX5").Value
  Sheets("Report2").Range("A55").Value = Sheets("Download").Range("AK5").Value
    
     Sheets("Report3").Range("B14").Value = Sheets("Download").Range("A6").Value
     Sheets("Report3").Range("B15").Value = Sheets("Download").Range("b6").Value
     Sheets("Report3").Range("B16").Value = Sheets("Download").Range("c6").Value
     Sheets("Report3").Range("B17").Value = Sheets("Download").Range("i6").Value
     Sheets("Report3").Range("B18").Value = Sheets("Download").Range("j6").Value
     Sheets("Report3").Range("e8").Value = Sheets("Download").Range("k6").Value
     Sheets("Report3").Range("B19").Value = Sheets("Download").Range("L6").Value
     Sheets("Report3").Range("E9").Value = Sheets("Download").Range("O6").Value
     Sheets("Report3").Range("E14").Value = Sheets("Download").Range("E6").Value
     Sheets("Report3").Range("E15").Value = Sheets("Download").Range("F6").Value
     Sheets("Report3").Range("E16").Value = Sheets("Download").Range("H6").Value
     Sheets("Report3").Range("E18").Value = Sheets("Download").Range("M6").Value
     Sheets("Report3").Range("F24").Value = Sheets("Download").Range("AM6").Value
     Sheets("Report3").Range("F25").Value = Sheets("Download").Range("AN6").Value
     Sheets("Report3").Range("F26").Value = Sheets("Download").Range("AL6").Value
     Sheets("Report3").Range("F27").Value = Sheets("Download").Range("AO6").Value
     Sheets("Report3").Range("F28").Value = Sheets("Download").Range("AP6").Value
     Sheets("Report3").Range("F29").Value = Sheets("Download").Range("AQ6").Value
     Sheets("Report3").Range("A31").Value = Sheets("Download").Range("AJ6").Value
     Sheets("Report3").Range("B37").Value = Sheets("Download").Range("AD6").Value
     Sheets("Report3").Range("B38").Value = Sheets("Download").Range("AE6").Value
     Sheets("Report3").Range("B39").Value = Sheets("Download").Range("AF6").Value
     Sheets("Report3").Range("B40").Value = Sheets("Download").Range("AG6").Value
     Sheets("Report3").Range("B41").Value = Sheets("Download").Range("AH6").Value
     Sheets("Report3").Range("D37").Value = Sheets("Download").Range("Y6").Value
     Sheets("Report3").Range("D38").Value = Sheets("Download").Range("AA6").Value
     Sheets("Report3").Range("D39").Value = Sheets("Download").Range("Z6").Value
     Sheets("Report3").Range("D40").Value = Sheets("Download").Range("Ab6").Value
     Sheets("Report3").Range("D42").Value = Sheets("Download").Range("AI6").Value
     Sheets("Report3").Range("D49").Value = Sheets("Download").Range("AX6").Value
     Sheets("Report3").Range("A55").Value = Sheets("Download").Range("AK6").Value


         Sheets("Report4").Range("B14").Value = Sheets("Download").Range("A7").Value
         Sheets("Report4").Range("B15").Value = Sheets("Download").Range("b7").Value
         Sheets("Report4").Range("B16").Value = Sheets("Download").Range("c7").Value
         Sheets("Report4").Range("B17").Value = Sheets("Download").Range("i7").Value
         Sheets("Report4").Range("B18").Value = Sheets("Download").Range("j7").Value
         Sheets("Report4").Range("B19").Value = Sheets("Download").Range("L7").Value
         Sheets("Report4").Range("e8").Value = Sheets("Download").Range("k7").Value
         Sheets("Report4").Range("E9").Value = Sheets("Download").Range("O7").Value
         Sheets("Report4").Range("E14").Value = Sheets("Download").Range("E7").Value
         Sheets("Report4").Range("E15").Value = Sheets("Download").Range("F7").Value
         Sheets("Report4").Range("E16").Value = Sheets("Download").Range("H7").Value
         Sheets("Report4").Range("E18").Value = Sheets("Download").Range("M7").Value
         Sheets("Report4").Range("F24").Value = Sheets("Download").Range("AM7").Value
         Sheets("Report4").Range("F25").Value = Sheets("Download").Range("AN7").Value
         Sheets("Report4").Range("F26").Value = Sheets("Download").Range("AL7").Value
         Sheets("Report4").Range("F27").Value = Sheets("Download").Range("AO7").Value
         Sheets("Report4").Range("F28").Value = Sheets("Download").Range("AP7").Value
         Sheets("Report4").Range("F29").Value = Sheets("Download").Range("AQ7").Value
         Sheets("Report4").Range("A31").Value = Sheets("Download").Range("AJ7").Value
         Sheets("Report4").Range("B37").Value = Sheets("Download").Range("AD7").Value
         Sheets("Report4").Range("B38").Value = Sheets("Download").Range("AE7").Value
         Sheets("Report4").Range("B39").Value = Sheets("Download").Range("AF7").Value
         Sheets("Report4").Range("B40").Value = Sheets("Download").Range("AG7").Value
         Sheets("Report4").Range("B41").Value = Sheets("Download").Range("AH7").Value
         Sheets("Report4").Range("D37").Value = Sheets("Download").Range("Y7").Value
         Sheets("Report4").Range("D38").Value = Sheets("Download").Range("AA7").Value
         Sheets("Report4").Range("D39").Value = Sheets("Download").Range("Z7").Value
         Sheets("Report4").Range("D40").Value = Sheets("Download").Range("Ab7").Value
         Sheets("Report4").Range("D42").Value = Sheets("Download").Range("AI7").Value
         Sheets("Report4").Range("D49").Value = Sheets("Download").Range("AX7").Value
         Sheets("Report4").Range("A55").Value = Sheets("Download").Range("AK7").Value


            Sheets("Report5").Range("B14").Value = Sheets("Download").Range("A8").Value
            Sheets("Report5").Range("B15").Value = Sheets("Download").Range("b8").Value
            Sheets("Report5").Range("B16").Value = Sheets("Download").Range("c8").Value
            Sheets("Report5").Range("B17").Value = Sheets("Download").Range("i8").Value
            Sheets("Report5").Range("B18").Value = Sheets("Download").Range("j8").Value
            Sheets("Report5").Range("B19").Value = Sheets("Download").Range("L8").Value
            Sheets("Report5").Range("e8").Value = Sheets("Download").Range("k8").Value
            Sheets("Report5").Range("E9").Value = Sheets("Download").Range("O8").Value
            Sheets("Report5").Range("E14").Value = Sheets("Download").Range("E8").Value
            Sheets("Report5").Range("E15").Value = Sheets("Download").Range("F8").Value
            Sheets("Report5").Range("E16").Value = Sheets("Download").Range("H8").Value
            Sheets("Report5").Range("E18").Value = Sheets("Download").Range("M8").Value
            Sheets("Report5").Range("F24").Value = Sheets("Download").Range("AM8").Value
            Sheets("Report5").Range("F25").Value = Sheets("Download").Range("AN8").Value
            Sheets("Report5").Range("F26").Value = Sheets("Download").Range("AL8").Value
            Sheets("Report5").Range("F27").Value = Sheets("Download").Range("AO8").Value
            Sheets("Report5").Range("F28").Value = Sheets("Download").Range("AP8").Value
            Sheets("Report5").Range("F29").Value = Sheets("Download").Range("AQ8").Value
            Sheets("Report5").Range("A31").Value = Sheets("Download").Range("AJ8").Value
            Sheets("Report5").Range("B37").Value = Sheets("Download").Range("AD8").Value
            Sheets("Report5").Range("B38").Value = Sheets("Download").Range("AE8").Value
            Sheets("Report5").Range("B39").Value = Sheets("Download").Range("AF8").Value
            Sheets("Report5").Range("B40").Value = Sheets("Download").Range("AG8").Value
            Sheets("Report5").Range("B41").Value = Sheets("Download").Range("AH8").Value
            Sheets("Report5").Range("D37").Value = Sheets("Download").Range("Y8").Value
            Sheets("Report5").Range("D38").Value = Sheets("Download").Range("AA8").Value
            Sheets("Report5").Range("D39").Value = Sheets("Download").Range("Z8").Value
            Sheets("Report5").Range("D40").Value = Sheets("Download").Range("Ab8").Value
            Sheets("Report5").Range("D42").Value = Sheets("Download").Range("AI8").Value
            Sheets("Report5").Range("D49").Value = Sheets("Download").Range("AX8").Value
            Sheets("Report5").Range("A55").Value = Sheets("Download").Range("AK8").Value


                        Sheets("Report6").Range("B14").Value = Sheets("Download").Range("A9").Value
                        Sheets("Report6").Range("B15").Value = Sheets("Download").Range("b9").Value
                        Sheets("Report6").Range("B16").Value = Sheets("Download").Range("c9").Value
                        Sheets("Report6").Range("B17").Value = Sheets("Download").Range("i9").Value
                        Sheets("Report6").Range("B18").Value = Sheets("Download").Range("j9").Value
                        Sheets("Report6").Range("B19").Value = Sheets("Download").Range("L9").Value
                        Sheets("Report6").Range("e8").Value = Sheets("Download").Range("k9").Value
                        Sheets("Report6").Range("E9").Value = Sheets("Download").Range("O9").Value
                        Sheets("Report6").Range("E14").Value = Sheets("Download").Range("E9").Value
                        Sheets("Report6").Range("E15").Value = Sheets("Download").Range("F9").Value
                        Sheets("Report6").Range("E16").Value = Sheets("Download").Range("H9").Value
                        Sheets("Report6").Range("E18").Value = Sheets("Download").Range("M9").Value
                        Sheets("Report6").Range("F24").Value = Sheets("Download").Range("AM9").Value
                        Sheets("Report6").Range("F25").Value = Sheets("Download").Range("AN9").Value
                        Sheets("Report6").Range("F26").Value = Sheets("Download").Range("AL9").Value
                        Sheets("Report6").Range("F27").Value = Sheets("Download").Range("AO9").Value
                        Sheets("Report6").Range("F28").Value = Sheets("Download").Range("AP9").Value
                        Sheets("Report6").Range("F29").Value = Sheets("Download").Range("AQ9").Value
                        Sheets("Report6").Range("A31").Value = Sheets("Download").Range("AJ9").Value
                        Sheets("Report6").Range("B37").Value = Sheets("Download").Range("AD9").Value
                        Sheets("Report6").Range("B38").Value = Sheets("Download").Range("AE9").Value
                        Sheets("Report6").Range("B39").Value = Sheets("Download").Range("AF9").Value
                        Sheets("Report6").Range("B40").Value = Sheets("Download").Range("AG9").Value
                        Sheets("Report6").Range("B41").Value = Sheets("Download").Range("AH9").Value
                        Sheets("Report6").Range("D37").Value = Sheets("Download").Range("Y9").Value
                        Sheets("Report6").Range("D38").Value = Sheets("Download").Range("AA9").Value
                        Sheets("Report6").Range("D39").Value = Sheets("Download").Range("Z9").Value
                        Sheets("Report6").Range("D40").Value = Sheets("Download").Range("Ab9").Value
                        Sheets("Report6").Range("D42").Value = Sheets("Download").Range("AI9").Value
                        Sheets("Report6").Range("D49").Value = Sheets("Download").Range("AX9").Value
                        Sheets("Report6").Range("A55").Value = Sheets("Download").Range("AK9").Value


                            Sheets("Report7").Range("B14").Value = Sheets("Download").Range("A10").Value
                            Sheets("Report7").Range("B15").Value = Sheets("Download").Range("b10").Value
                            Sheets("Report7").Range("B16").Value = Sheets("Download").Range("c10").Value
                            Sheets("Report7").Range("B17").Value = Sheets("Download").Range("i10").Value
                            Sheets("Report7").Range("B18").Value = Sheets("Download").Range("j10").Value
                            Sheets("Report7").Range("B19").Value = Sheets("Download").Range("l10").Value
                            Sheets("Report7").Range("e8").Value = Sheets("Download").Range("k10").Value
                            Sheets("Report7").Range("E9").Value = Sheets("Download").Range("O10").Value
                            Sheets("Report7").Range("E14").Value = Sheets("Download").Range("E10").Value
                            Sheets("Report7").Range("E15").Value = Sheets("Download").Range("F10").Value
                            Sheets("Report7").Range("E16").Value = Sheets("Download").Range("H10").Value
                            Sheets("Report7").Range("E18").Value = Sheets("Download").Range("M10").Value
                            Sheets("Report7").Range("F24").Value = Sheets("Download").Range("AM10").Value
                            Sheets("Report7").Range("F25").Value = Sheets("Download").Range("AN10").Value
                            Sheets("Report7").Range("F26").Value = Sheets("Download").Range("AL10").Value
                            Sheets("Report7").Range("F27").Value = Sheets("Download").Range("AO10").Value
                            Sheets("Report7").Range("F28").Value = Sheets("Download").Range("AP10").Value
                            Sheets("Report7").Range("F29").Value = Sheets("Download").Range("AQ10").Value
                            Sheets("Report7").Range("A31").Value = Sheets("Download").Range("AJ10").Value
                            Sheets("Report7").Range("B37").Value = Sheets("Download").Range("AD10").Value
                            Sheets("Report7").Range("B38").Value = Sheets("Download").Range("AE10").Value
                            Sheets("Report7").Range("B39").Value = Sheets("Download").Range("AF10").Value
                            Sheets("Report7").Range("B40").Value = Sheets("Download").Range("AG10").Value
                            Sheets("Report7").Range("B41").Value = Sheets("Download").Range("AH10").Value
                            Sheets("Report7").Range("D37").Value = Sheets("Download").Range("Y10").Value
                            Sheets("Report7").Range("D38").Value = Sheets("Download").Range("AA10").Value
                            Sheets("Report7").Range("D39").Value = Sheets("Download").Range("Z10").Value
                            Sheets("Report7").Range("D40").Value = Sheets("Download").Range("Ab10").Value
                            Sheets("Report7").Range("D42").Value = Sheets("Download").Range("AI10").Value
                            Sheets("Report7").Range("D49").Value = Sheets("Download").Range("AX10").Value
                            Sheets("Report7").Range("A55").Value = Sheets("Download").Range("AK10").Value
                                
                                    Sheets("Report8").Range("B14").Value = Sheets("Download").Range("A11").Value
                                    Sheets("Report8").Range("B15").Value = Sheets("Download").Range("b11").Value
                                    Sheets("Report8").Range("B16").Value = Sheets("Download").Range("c11").Value
                                    Sheets("Report8").Range("B17").Value = Sheets("Download").Range("i11").Value
                                    Sheets("Report8").Range("B18").Value = Sheets("Download").Range("j11").Value
                                    Sheets("Report8").Range("B19").Value = Sheets("Download").Range("l11").Value
                                    Sheets("Report8").Range("e8").Value = Sheets("Download").Range("k11").Value
                                    Sheets("Report8").Range("E9").Value = Sheets("Download").Range("O11").Value
                                    Sheets("Report8").Range("E14").Value = Sheets("Download").Range("E11").Value
                                    Sheets("Report8").Range("E15").Value = Sheets("Download").Range("F11").Value
                                    Sheets("Report8").Range("E16").Value = Sheets("Download").Range("H11").Value
                                    Sheets("Report8").Range("E18").Value = Sheets("Download").Range("M11").Value
                                    Sheets("Report8").Range("F24").Value = Sheets("Download").Range("AM11").Value
                                    Sheets("Report8").Range("F25").Value = Sheets("Download").Range("AN11").Value
                                    Sheets("Report8").Range("F26").Value = Sheets("Download").Range("AL11").Value
                                    Sheets("Report8").Range("F27").Value = Sheets("Download").Range("AO11").Value
                                    Sheets("Report8").Range("F28").Value = Sheets("Download").Range("AP11").Value
                                    Sheets("Report8").Range("F29").Value = Sheets("Download").Range("AQ11").Value
                                    Sheets("Report8").Range("A31").Value = Sheets("Download").Range("AJ11").Value
                                    Sheets("Report8").Range("B37").Value = Sheets("Download").Range("AD11").Value
                                    Sheets("Report8").Range("B38").Value = Sheets("Download").Range("AE11").Value
                                    Sheets("Report8").Range("B39").Value = Sheets("Download").Range("AF11").Value
                                    Sheets("Report8").Range("B40").Value = Sheets("Download").Range("AG11").Value
                                    Sheets("Report8").Range("B41").Value = Sheets("Download").Range("AH11").Value
                                    Sheets("Report8").Range("D37").Value = Sheets("Download").Range("Y11").Value
                                    Sheets("Report8").Range("D38").Value = Sheets("Download").Range("AA11").Value
                                    Sheets("Report8").Range("D39").Value = Sheets("Download").Range("Z11").Value
                                    Sheets("Report8").Range("D40").Value = Sheets("Download").Range("Ab11").Value
                                    Sheets("Report8").Range("D42").Value = Sheets("Download").Range("AI11").Value
                                    Sheets("Report8").Range("D49").Value = Sheets("Download").Range("AX11").Value
                                    Sheets("Report8").Range("A55").Value = Sheets("Download").Range("AK11").Value


                                        Sheets("Report9").Range("B14").Value = Sheets("Download").Range("A12").Value
                                        Sheets("Report9").Range("B15").Value = Sheets("Download").Range("b12").Value
                                        Sheets("Report9").Range("B16").Value = Sheets("Download").Range("c12").Value
                                        Sheets("Report9").Range("B17").Value = Sheets("Download").Range("i12").Value
                                        Sheets("Report9").Range("B18").Value = Sheets("Download").Range("j12").Value
                                        Sheets("Report9").Range("B19").Value = Sheets("Download").Range("l12").Value
                                        Sheets("Report9").Range("e8").Value = Sheets("Download").Range("k12").Value
                                        Sheets("Report9").Range("E9").Value = Sheets("Download").Range("O12").Value
                                        Sheets("Report9").Range("E14").Value = Sheets("Download").Range("E12").Value
                                        Sheets("Report9").Range("E15").Value = Sheets("Download").Range("F12").Value
                                        Sheets("Report9").Range("E16").Value = Sheets("Download").Range("H12").Value
                                        Sheets("Report9").Range("E18").Value = Sheets("Download").Range("M12").Value
                                        Sheets("Report9").Range("F24").Value = Sheets("Download").Range("AM12").Value
                                        Sheets("Report9").Range("F25").Value = Sheets("Download").Range("AN12").Value
                                        Sheets("Report9").Range("F26").Value = Sheets("Download").Range("AL12").Value
                                        Sheets("Report9").Range("F27").Value = Sheets("Download").Range("AO12").Value
                                        Sheets("Report9").Range("F28").Value = Sheets("Download").Range("AP12").Value
                                        Sheets("Report9").Range("F29").Value = Sheets("Download").Range("AQ12").Value
                                        Sheets("Report9").Range("A31").Value = Sheets("Download").Range("AJ12").Value
                                        Sheets("Report9").Range("B37").Value = Sheets("Download").Range("AD12").Value
                                        Sheets("Report9").Range("B38").Value = Sheets("Download").Range("AE12").Value
                                        Sheets("Report9").Range("B39").Value = Sheets("Download").Range("AF12").Value
                                        Sheets("Report9").Range("B40").Value = Sheets("Download").Range("AG12").Value
                                        Sheets("Report9").Range("B41").Value = Sheets("Download").Range("AH12").Value
                                        Sheets("Report9").Range("D37").Value = Sheets("Download").Range("Y12").Value
                                        Sheets("Report9").Range("D38").Value = Sheets("Download").Range("AA12").Value
                                        Sheets("Report9").Range("D39").Value = Sheets("Download").Range("Z12").Value
                                        Sheets("Report9").Range("D40").Value = Sheets("Download").Range("Ab12").Value
                                        Sheets("Report9").Range("D42").Value = Sheets("Download").Range("AI12").Value
                                        Sheets("Report9").Range("D49").Value = Sheets("Download").Range("AX12").Value
                                        Sheets("Report9").Range("A55").Value = Sheets("Download").Range("AK12").Value
                        
                                            Sheets("Report10").Range("B14").Value = Sheets("Download").Range("A13").Value
                                            Sheets("Report10").Range("B15").Value = Sheets("Download").Range("b13").Value
                                            Sheets("Report10").Range("B16").Value = Sheets("Download").Range("c13").Value
                                            Sheets("Report10").Range("B17").Value = Sheets("Download").Range("i13").Value
                                            Sheets("Report10").Range("B18").Value = Sheets("Download").Range("j13").Value
                                            Sheets("Report10").Range("B19").Value = Sheets("Download").Range("l13").Value
                                            Sheets("Report10").Range("e8").Value = Sheets("Download").Range("k13").Value
                                            Sheets("Report10").Range("E9").Value = Sheets("Download").Range("O13").Value
                                            Sheets("Report10").Range("E14").Value = Sheets("Download").Range("E13").Value
                                            Sheets("Report10").Range("E15").Value = Sheets("Download").Range("F13").Value
                                            Sheets("Report10").Range("E16").Value = Sheets("Download").Range("H13").Value
                                            Sheets("Report10").Range("E18").Value = Sheets("Download").Range("M13").Value
                                            Sheets("Report10").Range("F24").Value = Sheets("Download").Range("AM13").Value
                                            Sheets("Report10").Range("F25").Value = Sheets("Download").Range("AN13").Value
                                            Sheets("Report10").Range("F26").Value = Sheets("Download").Range("AL13").Value
                                            Sheets("Report10").Range("F27").Value = Sheets("Download").Range("AO13").Value
                                            Sheets("Report10").Range("F28").Value = Sheets("Download").Range("AP13").Value
                                            Sheets("Report10").Range("F29").Value = Sheets("Download").Range("AQ13").Value
                                            Sheets("Report10").Range("A31").Value = Sheets("Download").Range("AJ13").Value
                                            Sheets("Report10").Range("B37").Value = Sheets("Download").Range("AD13").Value
                                            Sheets("Report10").Range("B38").Value = Sheets("Download").Range("AE13").Value
                                            Sheets("Report10").Range("B39").Value = Sheets("Download").Range("AF13").Value
                                            Sheets("Report10").Range("B40").Value = Sheets("Download").Range("AG13").Value
                                            Sheets("Report10").Range("B41").Value = Sheets("Download").Range("AH13").Value
                                            Sheets("Report10").Range("D37").Value = Sheets("Download").Range("Y13").Value
                                            Sheets("Report10").Range("D38").Value = Sheets("Download").Range("AA13").Value
                                            Sheets("Report10").Range("D39").Value = Sheets("Download").Range("Z13").Value
                                            Sheets("Report10").Range("D40").Value = Sheets("Download").Range("Ab13").Value
                                            Sheets("Report10").Range("D42").Value = Sheets("Download").Range("AI13").Value
                                            Sheets("Report10").Range("D49").Value = Sheets("Download").Range("AX13").Value
                                            Sheets("Report10").Range("A55").Value = Sheets("Download").Range("AK13").Value


                                                Sheets("Report11").Range("B14").Value = Sheets("Download").Range("A14").Value
                                                Sheets("Report11").Range("B15").Value = Sheets("Download").Range("b14").Value
                                                Sheets("Report11").Range("B16").Value = Sheets("Download").Range("c14").Value
                                                Sheets("Report11").Range("B17").Value = Sheets("Download").Range("i14").Value
                                                Sheets("Report11").Range("B18").Value = Sheets("Download").Range("j14").Value
                                                Sheets("Report11").Range("B19").Value = Sheets("Download").Range("l14").Value
                                                Sheets("Report11").Range("e8").Value = Sheets("Download").Range("k14").Value
                                                Sheets("Report11").Range("E9").Value = Sheets("Download").Range("O14").Value
                                                Sheets("Report11").Range("E14").Value = Sheets("Download").Range("E14").Value
                                                Sheets("Report11").Range("E15").Value = Sheets("Download").Range("F14").Value
                                                Sheets("Report11").Range("E16").Value = Sheets("Download").Range("H14").Value
                                                Sheets("Report11").Range("E18").Value = Sheets("Download").Range("M14").Value
                                                Sheets("Report11").Range("F24").Value = Sheets("Download").Range("AM14").Value
                                                Sheets("Report11").Range("F25").Value = Sheets("Download").Range("AN14").Value
                                                Sheets("Report11").Range("F26").Value = Sheets("Download").Range("AL14").Value
                                                Sheets("Report11").Range("F27").Value = Sheets("Download").Range("AO14").Value
                                                Sheets("Report11").Range("F28").Value = Sheets("Download").Range("AP14").Value
                                                Sheets("Report11").Range("F29").Value = Sheets("Download").Range("AQ14").Value
                                                Sheets("Report11").Range("A31").Value = Sheets("Download").Range("AJ14").Value
                                                Sheets("Report11").Range("B37").Value = Sheets("Download").Range("AD14").Value
                                                Sheets("Report11").Range("B38").Value = Sheets("Download").Range("AE14").Value
                                                Sheets("Report11").Range("B39").Value = Sheets("Download").Range("AF14").Value
                                                Sheets("Report11").Range("B40").Value = Sheets("Download").Range("AG14").Value
                                                Sheets("Report11").Range("B41").Value = Sheets("Download").Range("AH14").Value
                                                Sheets("Report11").Range("D37").Value = Sheets("Download").Range("Y14").Value
                                                Sheets("Report11").Range("D38").Value = Sheets("Download").Range("AA14").Value
                                                Sheets("Report11").Range("D39").Value = Sheets("Download").Range("Z14").Value
                                                Sheets("Report11").Range("D40").Value = Sheets("Download").Range("Ab14").Value
                                                Sheets("Report11").Range("D42").Value = Sheets("Download").Range("AI14").Value
                                                Sheets("Report11").Range("D49").Value = Sheets("Download").Range("AX14").Value
                                                Sheets("Report11").Range("A55").Value = Sheets("Download").Range("AK14").Value
                                                    
                                                    Sheets("Report12").Range("B14").Value = Sheets("Download").Range("A15").Value
                                                    Sheets("Report12").Range("B15").Value = Sheets("Download").Range("b15").Value
                                                    Sheets("Report12").Range("B16").Value = Sheets("Download").Range("c15").Value
                                                    Sheets("Report12").Range("B17").Value = Sheets("Download").Range("i15").Value
                                                    Sheets("Report12").Range("B18").Value = Sheets("Download").Range("j15").Value
                                                    Sheets("Report12").Range("B19").Value = Sheets("Download").Range("l15").Value
                                                    Sheets("Report12").Range("e8").Value = Sheets("Download").Range("k15").Value
                                                    Sheets("Report12").Range("E9").Value = Sheets("Download").Range("O15").Value
                                                    Sheets("Report12").Range("E14").Value = Sheets("Download").Range("E15").Value
                                                    Sheets("Report12").Range("E15").Value = Sheets("Download").Range("F15").Value
                                                    Sheets("Report12").Range("E16").Value = Sheets("Download").Range("H15").Value
                                                    Sheets("Report12").Range("E18").Value = Sheets("Download").Range("M15").Value
                                                    Sheets("Report12").Range("F24").Value = Sheets("Download").Range("AM15").Value
                                                    Sheets("Report12").Range("F25").Value = Sheets("Download").Range("AN15").Value
                                                    Sheets("Report12").Range("F26").Value = Sheets("Download").Range("AL15").Value
                                                    Sheets("Report12").Range("F27").Value = Sheets("Download").Range("AO15").Value
                                                    Sheets("Report12").Range("F28").Value = Sheets("Download").Range("AP15").Value
                                                    Sheets("Report12").Range("F29").Value = Sheets("Download").Range("AQ15").Value
                                                    Sheets("Report12").Range("A31").Value = Sheets("Download").Range("AJ15").Value
                                                    Sheets("Report12").Range("B37").Value = Sheets("Download").Range("AD15").Value
                                                    Sheets("Report12").Range("B38").Value = Sheets("Download").Range("AE15").Value
                                                    Sheets("Report12").Range("B39").Value = Sheets("Download").Range("AF15").Value
                                                    Sheets("Report12").Range("B40").Value = Sheets("Download").Range("AG14").Value
                                                    Sheets("Report12").Range("B41").Value = Sheets("Download").Range("AH14").Value
                                                    Sheets("Report12").Range("D37").Value = Sheets("Download").Range("Y14").Value
                                                    Sheets("Report12").Range("D38").Value = Sheets("Download").Range("AA14").Value
                                                    Sheets("Report12").Range("D39").Value = Sheets("Download").Range("Z14").Value
                                                    Sheets("Report12").Range("D40").Value = Sheets("Download").Range("Ab14").Value
                                                    Sheets("Report12").Range("D42").Value = Sheets("Download").Range("AI14").Value
                                                    Sheets("Report12").Range("D49").Value = Sheets("Download").Range("AX14").Value
                                                    Sheets("Report12").Range("A55").Value = Sheets("Download").Range("AK14").Value


                                                            Sheets("Report13").Range("B14").Value = Sheets("Download").Range("A16").Value
                                                            Sheets("Report13").Range("B15").Value = Sheets("Download").Range("b16").Value
                                                            Sheets("Report13").Range("B16").Value = Sheets("Download").Range("c16").Value
                                                            Sheets("Report13").Range("B17").Value = Sheets("Download").Range("i16").Value
                                                            Sheets("Report13").Range("B18").Value = Sheets("Download").Range("j16").Value
                                                            Sheets("Report13").Range("B19").Value = Sheets("Download").Range("l16").Value
                                                            Sheets("Report13").Range("e8").Value = Sheets("Download").Range("k16").Value
                                                            Sheets("Report13").Range("E9").Value = Sheets("Download").Range("O16").Value
                                                            Sheets("Report13").Range("E14").Value = Sheets("Download").Range("E16").Value
                                                            Sheets("Report13").Range("E15").Value = Sheets("Download").Range("F16").Value
                                                            Sheets("Report13").Range("E16").Value = Sheets("Download").Range("H16").Value
                                                            Sheets("Report13").Range("E18").Value = Sheets("Download").Range("M16").Value
                                                            Sheets("Report13").Range("F24").Value = Sheets("Download").Range("AM16").Value
                                                            Sheets("Report13").Range("F25").Value = Sheets("Download").Range("AN16").Value
                                                            Sheets("Report13").Range("F26").Value = Sheets("Download").Range("AL16").Value
                                                            Sheets("Report13").Range("F27").Value = Sheets("Download").Range("AO16").Value
                                                            Sheets("Report13").Range("F28").Value = Sheets("Download").Range("AP16").Value
                                                            Sheets("Report13").Range("F29").Value = Sheets("Download").Range("AQ16").Value
                                                            Sheets("Report13").Range("A31").Value = Sheets("Download").Range("AJ16").Value
                                                            Sheets("Report13").Range("B37").Value = Sheets("Download").Range("AD16").Value
                                                            Sheets("Report13").Range("B38").Value = Sheets("Download").Range("AE16").Value
                                                            Sheets("Report13").Range("B39").Value = Sheets("Download").Range("AF16").Value
                                                            Sheets("Report13").Range("B40").Value = Sheets("Download").Range("AG16").Value
                                                            Sheets("Report13").Range("B41").Value = Sheets("Download").Range("AH16").Value
                                                            Sheets("Report13").Range("D37").Value = Sheets("Download").Range("Y16").Value
                                                            Sheets("Report13").Range("D38").Value = Sheets("Download").Range("AA16").Value
                                                            Sheets("Report13").Range("D39").Value = Sheets("Download").Range("Z16").Value
                                                            Sheets("Report13").Range("D40").Value = Sheets("Download").Range("Ab16").Value
                                                            Sheets("Report13").Range("D42").Value = Sheets("Download").Range("AI16").Value
                                                            Sheets("Report13").Range("D49").Value = Sheets("Download").Range("AX16").Value
                                                            Sheets("Report13").Range("A55").Value = Sheets("Download").Range("AK16").Value
                                                                
                                                                Sheets("Report14").Range("B14").Value = Sheets("Download").Range("A17").Value
                                                                Sheets("Report14").Range("B15").Value = Sheets("Download").Range("b17").Value
                                                                Sheets("Report14").Range("B16").Value = Sheets("Download").Range("c17").Value
                                                                Sheets("Report14").Range("B17").Value = Sheets("Download").Range("i17").Value
                                                                Sheets("Report14").Range("B18").Value = Sheets("Download").Range("j17").Value
                                                                Sheets("Report14").Range("B19").Value = Sheets("Download").Range("l17").Value
                                                                Sheets("Report14").Range("e8").Value = Sheets("Download").Range("k17").Value
                                                                Sheets("Report14").Range("E9").Value = Sheets("Download").Range("O17").Value
                                                                Sheets("Report14").Range("E14").Value = Sheets("Download").Range("E17").Value
                                                                Sheets("Report14").Range("E15").Value = Sheets("Download").Range("F17").Value
                                                                Sheets("Report14").Range("E16").Value = Sheets("Download").Range("H17").Value
                                                                Sheets("Report14").Range("E18").Value = Sheets("Download").Range("M17").Value
                                                                Sheets("Report14").Range("F24").Value = Sheets("Download").Range("AM17").Value
                                                                Sheets("Report14").Range("F25").Value = Sheets("Download").Range("AN17").Value
                                                                Sheets("Report14").Range("F26").Value = Sheets("Download").Range("AL17").Value
                                                                Sheets("Report14").Range("F27").Value = Sheets("Download").Range("AO17").Value
                                                                Sheets("Report14").Range("F28").Value = Sheets("Download").Range("AP17").Value
                                                                Sheets("Report14").Range("F29").Value = Sheets("Download").Range("AQ17").Value
                                                                Sheets("Report14").Range("A31").Value = Sheets("Download").Range("AJ17").Value
                                                                Sheets("Report14").Range("B37").Value = Sheets("Download").Range("AD17").Value
                                                                Sheets("Report14").Range("B38").Value = Sheets("Download").Range("AE17").Value
                                                                Sheets("Report14").Range("B39").Value = Sheets("Download").Range("AF17").Value
                                                                Sheets("Report14").Range("B40").Value = Sheets("Download").Range("AG17").Value
                                                                Sheets("Report14").Range("B41").Value = Sheets("Download").Range("AH17").Value
                                                                Sheets("Report14").Range("D37").Value = Sheets("Download").Range("Y17").Value
                                                                Sheets("Report14").Range("D38").Value = Sheets("Download").Range("AA17").Value
                                                                Sheets("Report14").Range("D39").Value = Sheets("Download").Range("Z17").Value
                                                                Sheets("Report14").Range("D40").Value = Sheets("Download").Range("Ab17").Value
                                                                Sheets("Report14").Range("D42").Value = Sheets("Download").Range("AI17").Value
                                                                Sheets("Report14").Range("D49").Value = Sheets("Download").Range("AX17").Value
                                                                Sheets("Report14").Range("A55").Value = Sheets("Download").Range("AK17").Value
    
                                                                    Sheets("Report15").Range("B14").Value = Sheets("Download").Range("A18").Value
                                                                    Sheets("Report15").Range("B15").Value = Sheets("Download").Range("b18").Value
                                                                    Sheets("Report15").Range("B16").Value = Sheets("Download").Range("c18").Value
                                                                    Sheets("Report15").Range("B17").Value = Sheets("Download").Range("i18").Value
                                                                    Sheets("Report15").Range("B18").Value = Sheets("Download").Range("j18").Value
                                                                    Sheets("Report15").Range("B19").Value = Sheets("Download").Range("l18").Value
                                                                    Sheets("Report15").Range("e8").Value = Sheets("Download").Range("k18").Value
                                                                    Sheets("Report15").Range("E9").Value = Sheets("Download").Range("O18").Value
                                                                    Sheets("Report15").Range("E14").Value = Sheets("Download").Range("E18").Value
                                                                    Sheets("Report15").Range("E15").Value = Sheets("Download").Range("F18").Value
                                                                    Sheets("Report15").Range("E16").Value = Sheets("Download").Range("H18").Value
                                                                    Sheets("Report15").Range("E18").Value = Sheets("Download").Range("M18").Value
                                                                    Sheets("Report15").Range("F24").Value = Sheets("Download").Range("AM18").Value
                                                                    Sheets("Report15").Range("F25").Value = Sheets("Download").Range("AN18").Value
                                                                    Sheets("Report15").Range("F26").Value = Sheets("Download").Range("AL18").Value
                                                                    Sheets("Report15").Range("F27").Value = Sheets("Download").Range("AO18").Value
                                                                    Sheets("Report15").Range("F28").Value = Sheets("Download").Range("AP18").Value
                                                                    Sheets("Report15").Range("F29").Value = Sheets("Download").Range("AQ18").Value
                                                                    Sheets("Report15").Range("A31").Value = Sheets("Download").Range("AJ18").Value
                                                                    Sheets("Report15").Range("B37").Value = Sheets("Download").Range("AD18").Value
                                                                    Sheets("Report15").Range("B38").Value = Sheets("Download").Range("AE18").Value
                                                                    Sheets("Report15").Range("B39").Value = Sheets("Download").Range("AF18").Value
                                                                    Sheets("Report15").Range("B40").Value = Sheets("Download").Range("AG18").Value
                                                                    Sheets("Report15").Range("B41").Value = Sheets("Download").Range("AH18").Value
                                                                    Sheets("Report15").Range("D37").Value = Sheets("Download").Range("Y18").Value
                                                                    Sheets("Report15").Range("D38").Value = Sheets("Download").Range("AA18").Value
                                                                    Sheets("Report15").Range("D39").Value = Sheets("Download").Range("Z18").Value
                                                                    Sheets("Report15").Range("D40").Value = Sheets("Download").Range("Ab18").Value
                                                                    Sheets("Report15").Range("D42").Value = Sheets("Download").Range("AI18").Value
                                                                    Sheets("Report15").Range("D49").Value = Sheets("Download").Range("AX18").Value
                                                                    Sheets("Report15").Range("A55").Value = Sheets("Download").Range("AK18").Value
    End Sub
 
Sort by date Sort by votes
Kenneth Hobson said:
The Debug.Print lines are what I use to check steps sometimes. I left them in for your information. The results are placed into the Visual Basic Editor's (VBE) Immediate Window after a run. You can delete those if you like.

Depending on your goal, I doubt that you really need all of that. If you are using a Change event, there should be a reason. e.g. Column B, rows 2 to end of column with data is changed, fire the Change event to say add one to that value into Column C of the same row. Most would limit the Change event code execution to say one value though many can be handled. e.g.
Code: 
If Target.Rows.Count >1 then Exit Sub
Click to expand...
I shall pesevere and get my head round your code Keith. Thanks for your patience again.
Best regards
Oldbill
 
Upvote 0

Excel Facts

Bring active cell back into view
Start at A1 and select to A9999 while writing a formula, you can't see A1 anymore. Press Ctrl+Backspace to bring active cell into view.
OldBill

Will the following work for you :-
Code: 
Dim Rw As Long
Dim ws As Worksheet

With Sheets("Download") 
  For Rw = 4 To 18 Step 1
    Set ws = Sheets("Report" & Rw - 3)
    ws.Range("B14").Value = .Range("A" & Rw).Value
    ws.Range("B15").Value = .Range("b" & Rw).Value
    ws.Range("B16").Value = .Range("c" & Rw).Value
    ws.Range("B17").Value = .Range("i" & Rw).Value
    ws.Range("B18").Value = .Range("j" & Rw).Value
    ws.Range("B19").Value = .Range("L" & Rw).Value
    ws.Range("e8").Value = .Range("k" & Rw).Value
    ws.Range("E9").Value = .Range("O" & Rw).Value
    ws.Range("E14").Value = .Range("E" & Rw).Value
    ws.Range("E15").Value = .Range("F" & Rw).Value
    ws.Range("E16").Value = .Range("H" & Rw).Value
    ws.Range("E18").Value = .Range("M" & Rw).Value
    ws.Range("F24").Value = .Range("AM" & Rw).Value
    ws.Range("F25").Value = .Range("AN" & Rw).Value
    ws.Range("F26").Value = .Range("AL" & Rw).Value
    ws.Range("F27").Value = .Range("AO" & Rw).Value
    ws.Range("F28").Value = .Range("AP" & Rw).Value
    ws.Range("F29").Value = .Range("AQ" & Rw).Value
    ws.Range("A31").Value = .Range("AJ" & Rw).Value
    ws.Range("B37").Value = .Range("AD" & Rw).Value
    ws.Range("B38").Value = .Range("AE" & Rw).Value
    ws.Range("B39").Value = .Range("AF" & Rw).Value
    ws.Range("B40").Value = .Range("AG" & Rw).Value
    ws.Range("B41").Value = .Range("AH" & Rw).Value
    ws.Range("D37").Value = .Range("Y" & Rw).Value
    ws.Range("D38").Value = .Range("AA" & Rw).Value
    ws.Range("D39").Value = .Range("Z" & Rw).Value
    ws.Range("D40").Value = .Range("Ab" & Rw).Value
    ws.Range("D42").Value = .Range("AI" & Rw).Value
    ws.Range("D49").Value = .Range("AX" & Rw).Value
    ws.Range("A55").Value = .Range("AK" & Rw).Value
 Next Rw
End With

I believe that there is an error in one of your sections "Report12" where cells B40 onwards are filled from row 14 rather than row 15.

hth
 
Upvote 0
You must log in or register to reply here.

Similar threads

J
  • Solved
Forumla Error on Sum of lines Containing same Value
Replies
2
Views
231
jarett
J
S
  • Question
Duplicating tabs to new workbook but retaining data
Replies
1
Views
411
ajetrumpet
ajetrumpet
A
  • Question
Guys please help! Excel problem with index sort and filter function
Replies
2
Views
462
Adfassa
A
M
  • Solved
VBA Code to split week ranges into separate lines.
2
Replies
10
Views
2K
Joe4
Joe4
O
  • Question
Too many ifs
2
Replies
10
Views
863
Oldbill62
O

Forum statistics

Threads
1,215,043
Messages
6,122,816
Members
449,095
Latest member
m_smith_solihull

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top