Trying to learn how to loop code

W

WhiteRaven76

New Member
Joined
Jun 27, 2022
Messages
10
Office Version
  1. 365
Platform
  1. Windows
Hello,

I have some pretty basic code that copies some data from workbook (ActiveWorkbook) to multiple named sheets in another named workbook. It checks to see if Cell A3 on the first sheet is blank and if it is, copies a bunch of data. One piece of data it copies is a specific number (between 1 and 999) to cell A3. When I run the macro again with a different Activeworkbook, it checks if A3 is empty and when it is not, it checks if A12 is empty (exactly 9 rows lower) and then copies a bunch of data. The cells it copies from the ActiveWorkbook will always be the same. The cells it copies to in the named workbook will be offset by a specific amount depending on which cell is blank on the first sheet.

It works for now, but I am trying to make it more efficient and have it loop until It it can't read a specific cell (maybe 50 times?) Any help would be extremely appreciated and a learning experience I would greatly treasure!
The code I am currently using is listed below. As you can see, it is a lot and already at 40KB and if I tried pushing it past 15 loops in its current state would run into becoming oversized.


VBA Code: 
Sub Copy_Interims()
'
' Copy Sheets to Verifier file
'
    Dim wbCopy As Workbook
    Dim wsCopy As Worksheet
    Dim wbPasteV As Workbook
    Dim wsPasteMT As Worksheet
    Dim wsPasteSD As Worksheet
       
    Set wbCopy = Workbooks(ActiveWorkbook.Name)
    Set wsCopy = wbCopy.Sheets(ActiveSheet.Name)
    Set wbPasteV = Workbooks("Verifier.xlsm")
    Set wsPasteMT = wbPasteV.Sheets("Moved To")
    Set wsPasteSD = wbPasteV.Sheets("Sheet Data")
    Set wsPaste4012 = wbPasteV.Sheets("1111")
            
    With ActiveSheet
    .EnableSelection = xlNoRestrictions
    Application.ScreenUpdating = False
    
    wbPasteV.Activate
    wsPasteMT.Select
    
    If IsEmpty(Range("A3").Value) Then
    
    'This Copies the Data to Cross-Check (Line 1)
    wsPasteSD.Range("B14").Value = wsCopy.Range("F17").Value
    wsPasteSD.Range("C14").Value = wsCopy.Range("G17").Value
    wsPasteSD.Range("D14").Value = wsCopy.Range("H17").Value
    wsPasteSD.Range("E14").Value = wsCopy.Range("J17").Value
    wsPasteSD.Range("F14").Value = wsCopy.Range("N17").Value
    wsPasteSD.Range("G14").Value = wsCopy.Range("O17").Value
    wsPasteSD.Range("H14").Value = wsCopy.Range("P17").Value
    wsPasteSD.Range("I14").Value = wsCopy.Range("Q17").Value
    wsPasteSD.Range("J14").Value = wsCopy.Range("F35").Value
    wsPasteSD.Range("K14").Value = wsCopy.Range("G35").Value
    wsPasteSD.Range("L14").Value = wsCopy.Range("H35").Value
    wsPasteSD.Range("M14").Value = wsCopy.Range("I35").Value
    wsPasteSD.Range("N14").Value = wsCopy.Range("K35").Value
    wsPasteSD.Range("O14").Value = wsCopy.Range("L35").Value
    wsPasteSD.Range("P14").Value = wsCopy.Range("M57").Value
    
    'This Copies the Data to manually Verify (Line 1)
    wsPasteSD.Range("R3").Value = wsCopy.Range("F10").Value
    wsPasteSD.Range("S3").Value = wsCopy.Range("F11").Value
    wsPasteSD.Range("T3").Value = wsCopy.Range("F12").Value
    wsPasteSD.Range("U3").Value = wsCopy.Range("F13").Value
    wsPasteSD.Range("V3").Value = wsCopy.Range("O10").Value
    wsPasteSD.Range("W3").Value = wsCopy.Range("O11").Value
    wsPasteSD.Range("X3").Value = wsCopy.Range("O12").Value
    wsPasteSD.Range("Y3").Value = wsCopy.Range("O13").Value
    wsPasteSD.Range("Z3").Value = wsCopy.Range("F4").Value
    wsPasteSD.Range("AA3").Value = wsCopy.Range("F5").Value
    wsPasteSD.Range("AB3").Value = wsCopy.Range("F6").Value
    wsPasteSD.Range("AC3").Value = wsCopy.Range("F7").Value
    wsPasteSD.Range("AD3").Value = wsCopy.Range("Q4").Value
    wsPasteSD.Range("AE3").Value = wsCopy.Range("P6").Value
    wsPasteSD.Range("AF3").Value = wsCopy.Range("P7").Value
    
    'This Copies the 1111 Data (Line 1)
    wsPaste4012.Range("D13").Value = wsCopy.Range("F100").Value
    wsPaste4012.Range("E13").Value = wsCopy.Range("H100").Value
    wsPaste4012.Range("G13").Value = wsCopy.Range("F102").Value
    wsPaste4012.Range("H13").Value = wsCopy.Range("H102").Value
    wsPaste4012.Range("K14").Value = wsCopy.Range("L101").Value
    wsPaste4012.Range("L14").Value = wsCopy.Range("M101").Value
    wsPaste4012.Range("M14").Value = wsCopy.Range("H17").Value
    wsPaste4012.Range("N14").Value = wsCopy.Range("F90").Value
    wsPaste4012.Range("O14").Value = wsCopy.Range("R35").Value
    wsPaste4012.Range("P14").Value = wsCopy.Range("R48").Value
    wsPaste4012.Range("R14").Value = wsCopy.Range("L92").Value
    wsPaste4012.Range("S14").Value = wsCopy.Range("O11").Value
    
    'This Copies the Remove from Data (Line 1)
    wsPasteMT.Range("A3").Value = wsCopy.Range("Q5").Value
    wsPasteMT.Range("C3").Value = wsCopy.Range("I18").Value
    wsPasteMT.Range("D3").Value = wsCopy.Range("K18").Value
    wsPasteMT.Range("E3").Value = wsCopy.Range("L18").Value
    wsPasteMT.Range("F3").Value = wsCopy.Range("M18").Value
    wsPasteMT.Range("G3").Value = wsCopy.Range("M36").Value
    wsPasteMT.Range("H3").Value = wsCopy.Range("N36").Value
    wsPasteMT.Range("I3").Value = wsCopy.Range("O36").Value
    wsPasteMT.Range("J3").Value = wsCopy.Range("P36").Value
    wsPasteMT.Range("K3").Value = wsCopy.Range("Q36").Value
    wsPasteMT.Range("L3").Value = wsCopy.Range("F58").Value
    wsPasteMT.Range("M3").Value = wsCopy.Range("G58").Value
    wsPasteMT.Range("N3").Value = wsCopy.Range("H58").Value
    wsPasteMT.Range("O3").Value = wsCopy.Range("I58").Value
    wsPasteMT.Range("P3").Value = wsCopy.Range("K58").Value
    wsPasteMT.Range("Q3").Value = wsCopy.Range("L58").Value
    wsPasteMT.Range("R3").Value = wsCopy.Range("N58").Value
    wsPasteMT.Range("S3").Value = wsCopy.Range("O58").Value
    
ElseIf IsEmpty(Range("A12").Value) Then

    'This Copies the Data (Line 2)
    wsPasteSD.Range("B17").Value = wsCopy.Range("F17").Value
    wsPasteSD.Range("C17").Value = wsCopy.Range("G17").Value
    wsPasteSD.Range("D17").Value = wsCopy.Range("H17").Value
    wsPasteSD.Range("E17").Value = wsCopy.Range("J17").Value
    wsPasteSD.Range("F17").Value = wsCopy.Range("N17").Value
    wsPasteSD.Range("G17").Value = wsCopy.Range("O17").Value
    wsPasteSD.Range("H17").Value = wsCopy.Range("P17").Value
    wsPasteSD.Range("I17").Value = wsCopy.Range("Q17").Value
    wsPasteSD.Range("J17").Value = wsCopy.Range("F35").Value
    wsPasteSD.Range("K17").Value = wsCopy.Range("G35").Value
    wsPasteSD.Range("L17").Value = wsCopy.Range("H35").Value
    wsPasteSD.Range("M17").Value = wsCopy.Range("I35").Value
    wsPasteSD.Range("N17").Value = wsCopy.Range("K35").Value
    wsPasteSD.Range("O17").Value = wsCopy.Range("L35").Value
    wsPasteSD.Range("P17").Value = wsCopy.Range("M57").Value
    
    'This Copies the Data to manually Verify (Line 2)
    wsPasteSD.Range("R4").Value = wsCopy.Range("F10").Value
    wsPasteSD.Range("S4").Value = wsCopy.Range("F11").Value
    wsPasteSD.Range("T4").Value = wsCopy.Range("F12").Value
    wsPasteSD.Range("U4").Value = wsCopy.Range("F13").Value
    wsPasteSD.Range("V4").Value = wsCopy.Range("O10").Value
    wsPasteSD.Range("W4").Value = wsCopy.Range("O11").Value
    wsPasteSD.Range("X4").Value = wsCopy.Range("O12").Value
    wsPasteSD.Range("Y4").Value = wsCopy.Range("O13").Value
    wsPasteSD.Range("Z4").Value = wsCopy.Range("F4").Value
    wsPasteSD.Range("AA4").Value = wsCopy.Range("F5").Value
    wsPasteSD.Range("AB4").Value = wsCopy.Range("F6").Value
    wsPasteSD.Range("AC4").Value = wsCopy.Range("F7").Value
    wsPasteSD.Range("AD4").Value = wsCopy.Range("Q4").Value
    wsPasteSD.Range("AE4").Value = wsCopy.Range("P6").Value
    wsPasteSD.Range("AF4").Value = wsCopy.Range("P7").Value
   
    'This Copies the 1111 Data (Line 2)
    wsPaste4012.Range("D16").Value = wsCopy.Range("F100").Value
    wsPaste4012.Range("E16").Value = wsCopy.Range("H100").Value
    wsPaste4012.Range("G16").Value = wsCopy.Range("F102").Value
    wsPaste4012.Range("H16").Value = wsCopy.Range("H102").Value
    wsPaste4012.Range("K17").Value = wsCopy.Range("L101").Value
    wsPaste4012.Range("L17").Value = wsCopy.Range("M101").Value
    wsPaste4012.Range("M17").Value = wsCopy.Range("H17").Value
    wsPaste4012.Range("N17").Value = wsCopy.Range("F90").Value
    wsPaste4012.Range("O17").Value = wsCopy.Range("R35").Value
    wsPaste4012.Range("P17").Value = wsCopy.Range("R48").Value
    wsPaste4012.Range("R17").Value = wsCopy.Range("L92").Value
    wsPaste4012.Range("S17").Value = wsCopy.Range("O11").Value

    'This Copies the Remove from Data (Line 2)
    wsPasteMT.Range("A12").Value = wsCopy.Range("Q5").Value
    wsPasteMT.Range("C12").Value = wsCopy.Range("I18").Value
    wsPasteMT.Range("D12").Value = wsCopy.Range("K18").Value
    wsPasteMT.Range("E12").Value = wsCopy.Range("L18").Value
    wsPasteMT.Range("F12").Value = wsCopy.Range("M18").Value
    wsPasteMT.Range("G12").Value = wsCopy.Range("M36").Value
    wsPasteMT.Range("H12").Value = wsCopy.Range("N36").Value
    wsPasteMT.Range("I12").Value = wsCopy.Range("O36").Value
    wsPasteMT.Range("J12").Value = wsCopy.Range("P36").Value
    wsPasteMT.Range("K12").Value = wsCopy.Range("Q36").Value
    wsPasteMT.Range("L12").Value = wsCopy.Range("F58").Value
    wsPasteMT.Range("M12").Value = wsCopy.Range("G58").Value
    wsPasteMT.Range("N12").Value = wsCopy.Range("H58").Value
    wsPasteMT.Range("O12").Value = wsCopy.Range("I58").Value
    wsPasteMT.Range("P12").Value = wsCopy.Range("K58").Value
    wsPasteMT.Range("Q12").Value = wsCopy.Range("L58").Value
    wsPasteMT.Range("R12").Value = wsCopy.Range("N58").Value
    wsPasteMT.Range("S12").Value = wsCopy.Range("O58").Value


ElseIf IsEmpty(Range("A21").Value) Then
    
    'This Copies the Data (Line 3)
    wsPasteSD.Range("B20").Value = wsCopy.Range("F17").Value
    wsPasteSD.Range("C20").Value = wsCopy.Range("G17").Value
    wsPasteSD.Range("D20").Value = wsCopy.Range("H17").Value
    wsPasteSD.Range("E20").Value = wsCopy.Range("J17").Value
    wsPasteSD.Range("F20").Value = wsCopy.Range("N17").Value
    wsPasteSD.Range("G20").Value = wsCopy.Range("O17").Value
    wsPasteSD.Range("H20").Value = wsCopy.Range("P17").Value
    wsPasteSD.Range("I20").Value = wsCopy.Range("Q17").Value
    wsPasteSD.Range("J20").Value = wsCopy.Range("F35").Value
    wsPasteSD.Range("K20").Value = wsCopy.Range("G35").Value
    wsPasteSD.Range("L20").Value = wsCopy.Range("H35").Value
    wsPasteSD.Range("M20").Value = wsCopy.Range("I35").Value
    wsPasteSD.Range("N20").Value = wsCopy.Range("K35").Value
    wsPasteSD.Range("O20").Value = wsCopy.Range("L35").Value
    wsPasteSD.Range("P20").Value = wsCopy.Range("M57").Value

    'This Copies the Data to manually Verify (Line 3)
    wsPasteSD.Range("R5").Value = wsCopy.Range("F10").Value
    wsPasteSD.Range("S5").Value = wsCopy.Range("F11").Value
    wsPasteSD.Range("T5").Value = wsCopy.Range("F12").Value
    wsPasteSD.Range("U5").Value = wsCopy.Range("F13").Value
    wsPasteSD.Range("V5").Value = wsCopy.Range("O10").Value
    wsPasteSD.Range("W5").Value = wsCopy.Range("O11").Value
    wsPasteSD.Range("X5").Value = wsCopy.Range("O12").Value
    wsPasteSD.Range("Y5").Value = wsCopy.Range("O13").Value
    wsPasteSD.Range("Z5").Value = wsCopy.Range("F4").Value
    wsPasteSD.Range("AA5").Value = wsCopy.Range("F5").Value
    wsPasteSD.Range("AB5").Value = wsCopy.Range("F6").Value
    wsPasteSD.Range("AC5").Value = wsCopy.Range("F7").Value
    wsPasteSD.Range("AD5").Value = wsCopy.Range("Q4").Value
    wsPasteSD.Range("AE5").Value = wsCopy.Range("P6").Value
    wsPasteSD.Range("AF5").Value = wsCopy.Range("P7").Value
    
    'This Copies the 1111 Data (Line 3)
    wsPaste4012.Range("D19").Value = wsCopy.Range("F100").Value
    wsPaste4012.Range("E19").Value = wsCopy.Range("H100").Value
    wsPaste4012.Range("G19").Value = wsCopy.Range("F102").Value
    wsPaste4012.Range("H19").Value = wsCopy.Range("H102").Value
    wsPaste4012.Range("K20").Value = wsCopy.Range("L101").Value
    wsPaste4012.Range("L20").Value = wsCopy.Range("M101").Value
    wsPaste4012.Range("M20").Value = wsCopy.Range("H17").Value
    wsPaste4012.Range("N20").Value = wsCopy.Range("F90").Value
    wsPaste4012.Range("O20").Value = wsCopy.Range("R35").Value
    wsPaste4012.Range("P20").Value = wsCopy.Range("R48").Value
    wsPaste4012.Range("R20").Value = wsCopy.Range("L92").Value
    wsPaste4012.Range("S20").Value = wsCopy.Range("O11").Value
    
    'This Copies the Remove from Data (Line 3)
    wsPasteMT.Range("A21").Value = wsCopy.Range("Q5").Value
    wsPasteMT.Range("C21").Value = wsCopy.Range("I18").Value
    wsPasteMT.Range("D21").Value = wsCopy.Range("K18").Value
    wsPasteMT.Range("E21").Value = wsCopy.Range("L18").Value
    wsPasteMT.Range("F21").Value = wsCopy.Range("M18").Value
    wsPasteMT.Range("G21").Value = wsCopy.Range("M36").Value
    wsPasteMT.Range("H21").Value = wsCopy.Range("N36").Value
    wsPasteMT.Range("I21").Value = wsCopy.Range("O36").Value
    wsPasteMT.Range("J21").Value = wsCopy.Range("P36").Value
    wsPasteMT.Range("K21").Value = wsCopy.Range("Q36").Value
    wsPasteMT.Range("L21").Value = wsCopy.Range("F58").Value
    wsPasteMT.Range("M21").Value = wsCopy.Range("G58").Value
    wsPasteMT.Range("N21").Value = wsCopy.Range("H58").Value
    wsPasteMT.Range("O21").Value = wsCopy.Range("I58").Value
    wsPasteMT.Range("P21").Value = wsCopy.Range("K58").Value
    wsPasteMT.Range("Q21").Value = wsCopy.Range("L58").Value
    wsPasteMT.Range("R21").Value = wsCopy.Range("N58").Value
    wsPasteMT.Range("S21").Value = wsCopy.Range("O58").Value
    
ElseIf IsEmpty(Range("A30").Value) Then

    'This Copies the Data (Line 4)
    wsPasteSD.Range("B23").Value = wsCopy.Range("F17").Value
    wsPasteSD.Range("C23").Value = wsCopy.Range("G17").Value
    wsPasteSD.Range("D23").Value = wsCopy.Range("H17").Value
    wsPasteSD.Range("E23").Value = wsCopy.Range("J17").Value
    wsPasteSD.Range("F23").Value = wsCopy.Range("N17").Value
    wsPasteSD.Range("G23").Value = wsCopy.Range("O17").Value
    wsPasteSD.Range("H23").Value = wsCopy.Range("P17").Value
    wsPasteSD.Range("I23").Value = wsCopy.Range("Q17").Value
    wsPasteSD.Range("J23").Value = wsCopy.Range("F35").Value
    wsPasteSD.Range("K23").Value = wsCopy.Range("G35").Value
    wsPasteSD.Range("L23").Value = wsCopy.Range("H35").Value
    wsPasteSD.Range("M23").Value = wsCopy.Range("I35").Value
    wsPasteSD.Range("N23").Value = wsCopy.Range("K35").Value
    wsPasteSD.Range("O23").Value = wsCopy.Range("L35").Value
    wsPasteSD.Range("P23").Value = wsCopy.Range("M57").Value

    'This Copies the Data to manually Verify (Line 4)
    wsPasteSD.Range("R6").Value = wsCopy.Range("F10").Value
    wsPasteSD.Range("S6").Value = wsCopy.Range("F11").Value
    wsPasteSD.Range("T6").Value = wsCopy.Range("F12").Value
    wsPasteSD.Range("U6").Value = wsCopy.Range("F13").Value
    wsPasteSD.Range("V6").Value = wsCopy.Range("O10").Value
    wsPasteSD.Range("W6").Value = wsCopy.Range("O11").Value
    wsPasteSD.Range("X6").Value = wsCopy.Range("O12").Value
    wsPasteSD.Range("Y6").Value = wsCopy.Range("O13").Value
    wsPasteSD.Range("Z6").Value = wsCopy.Range("F4").Value
    wsPasteSD.Range("AA6").Value = wsCopy.Range("F5").Value
    wsPasteSD.Range("AB6").Value = wsCopy.Range("F6").Value
    wsPasteSD.Range("AC6").Value = wsCopy.Range("F7").Value
    wsPasteSD.Range("AD6").Value = wsCopy.Range("Q4").Value
    wsPasteSD.Range("AE6").Value = wsCopy.Range("P6").Value
    wsPasteSD.Range("AF6").Value = wsCopy.Range("P7").Value

    'This Copies the 1111 Data (Line 4)
    wsPaste4012.Range("D22").Value = wsCopy.Range("F100").Value
    wsPaste4012.Range("E22").Value = wsCopy.Range("H100").Value
    wsPaste4012.Range("G22").Value = wsCopy.Range("F102").Value
    wsPaste4012.Range("H22").Value = wsCopy.Range("H102").Value
    wsPaste4012.Range("K23").Value = wsCopy.Range("L101").Value
    wsPaste4012.Range("L23").Value = wsCopy.Range("M101").Value
    wsPaste4012.Range("M23").Value = wsCopy.Range("H17").Value
    wsPaste4012.Range("N23").Value = wsCopy.Range("F90").Value
    wsPaste4012.Range("O23").Value = wsCopy.Range("R35").Value
    wsPaste4012.Range("P23").Value = wsCopy.Range("R48").Value
    wsPaste4012.Range("R23").Value = wsCopy.Range("L92").Value
    wsPaste4012.Range("S23").Value = wsCopy.Range("O11").Value
    
    'This Copies the Remove from Data (Line 4)
    wsPasteMT.Range("A30").Value = wsCopy.Range("Q5").Value
    wsPasteMT.Range("C30").Value = wsCopy.Range("I18").Value
    wsPasteMT.Range("D30").Value = wsCopy.Range("K18").Value
    wsPasteMT.Range("E30").Value = wsCopy.Range("L18").Value
    wsPasteMT.Range("F30").Value = wsCopy.Range("M18").Value
    wsPasteMT.Range("G30").Value = wsCopy.Range("M36").Value
    wsPasteMT.Range("H30").Value = wsCopy.Range("N36").Value
    wsPasteMT.Range("I30").Value = wsCopy.Range("O36").Value
    wsPasteMT.Range("J30").Value = wsCopy.Range("P36").Value
    wsPasteMT.Range("K30").Value = wsCopy.Range("Q36").Value
    wsPasteMT.Range("L30").Value = wsCopy.Range("F58").Value
    wsPasteMT.Range("M30").Value = wsCopy.Range("G58").Value
    wsPasteMT.Range("N30").Value = wsCopy.Range("H58").Value
    wsPasteMT.Range("O30").Value = wsCopy.Range("I58").Value
    wsPasteMT.Range("P30").Value = wsCopy.Range("K58").Value
    wsPasteMT.Range("Q30").Value = wsCopy.Range("L58").Value
    wsPasteMT.Range("R30").Value = wsCopy.Range("N58").Value
    wsPasteMT.Range("S30").Value = wsCopy.Range("O58").Value

ElseIf IsEmpty(Range("A39").Value) Then

    'This Copies the Data (Line 5)
    wsPasteSD.Range("B26").Value = wsCopy.Range("F17").Value
    wsPasteSD.Range("C26").Value = wsCopy.Range("G17").Value
    wsPasteSD.Range("D26").Value = wsCopy.Range("H17").Value
    wsPasteSD.Range("E26").Value = wsCopy.Range("J17").Value
    wsPasteSD.Range("F26").Value = wsCopy.Range("N17").Value
    wsPasteSD.Range("G26").Value = wsCopy.Range("O17").Value
    wsPasteSD.Range("H26").Value = wsCopy.Range("P17").Value
    wsPasteSD.Range("I26").Value = wsCopy.Range("Q17").Value
    wsPasteSD.Range("J26").Value = wsCopy.Range("F35").Value
    wsPasteSD.Range("K26").Value = wsCopy.Range("G35").Value
    wsPasteSD.Range("L26").Value = wsCopy.Range("H35").Value
    wsPasteSD.Range("M26").Value = wsCopy.Range("I35").Value
    wsPasteSD.Range("N26").Value = wsCopy.Range("K35").Value
    wsPasteSD.Range("O26").Value = wsCopy.Range("L35").Value
    wsPasteSD.Range("P26").Value = wsCopy.Range("M57").Value
    
    'This Copies the Data to manually Verify (Line 5)
    wsPasteSD.Range("R7").Value = wsCopy.Range("F10").Value
    wsPasteSD.Range("S7").Value = wsCopy.Range("F11").Value
    wsPasteSD.Range("T7").Value = wsCopy.Range("F12").Value
    wsPasteSD.Range("U7").Value = wsCopy.Range("F13").Value
    wsPasteSD.Range("V7").Value = wsCopy.Range("O10").Value
    wsPasteSD.Range("W7").Value = wsCopy.Range("O11").Value
    wsPasteSD.Range("X7").Value = wsCopy.Range("O12").Value
    wsPasteSD.Range("Y7").Value = wsCopy.Range("O13").Value
    wsPasteSD.Range("Z7").Value = wsCopy.Range("F4").Value
    wsPasteSD.Range("AA7").Value = wsCopy.Range("F5").Value
    wsPasteSD.Range("AB7").Value = wsCopy.Range("F6").Value
    wsPasteSD.Range("AC7").Value = wsCopy.Range("F7").Value
    wsPasteSD.Range("AD7").Value = wsCopy.Range("Q4").Value
    wsPasteSD.Range("AE7").Value = wsCopy.Range("P6").Value
    wsPasteSD.Range("AF7").Value = wsCopy.Range("P7").Value
    
    'This Copies the 1111 Data (Line 5)
    wsPaste4012.Range("D25").Value = wsCopy.Range("F100").Value
    wsPaste4012.Range("E25").Value = wsCopy.Range("H100").Value
    wsPaste4012.Range("G25").Value = wsCopy.Range("F102").Value
    wsPaste4012.Range("H25").Value = wsCopy.Range("H102").Value
    wsPaste4012.Range("K26").Value = wsCopy.Range("L101").Value
    wsPaste4012.Range("L26").Value = wsCopy.Range("M101").Value
    wsPaste4012.Range("M26").Value = wsCopy.Range("H17").Value
    wsPaste4012.Range("N26").Value = wsCopy.Range("F90").Value
    wsPaste4012.Range("O26").Value = wsCopy.Range("R35").Value
    wsPaste4012.Range("P26").Value = wsCopy.Range("R48").Value
    wsPaste4012.Range("R26").Value = wsCopy.Range("L92").Value
    wsPaste4012.Range("S26").Value = wsCopy.Range("O11").Value
     
    'This Copies the Remove from Data (Line 5)
    wsPasteMT.Range("A39").Value = wsCopy.Range("Q5").Value
    wsPasteMT.Range("C39").Value = wsCopy.Range("I18").Value
    wsPasteMT.Range("D39").Value = wsCopy.Range("K18").Value
    wsPasteMT.Range("E39").Value = wsCopy.Range("L18").Value
    wsPasteMT.Range("F39").Value = wsCopy.Range("M18").Value
    wsPasteMT.Range("G39").Value = wsCopy.Range("M36").Value
    wsPasteMT.Range("H39").Value = wsCopy.Range("N36").Value
    wsPasteMT.Range("I39").Value = wsCopy.Range("O36").Value
    wsPasteMT.Range("J39").Value = wsCopy.Range("P36").Value
    wsPasteMT.Range("K39").Value = wsCopy.Range("Q36").Value
    wsPasteMT.Range("L39").Value = wsCopy.Range("F58").Value
    wsPasteMT.Range("M39").Value = wsCopy.Range("G58").Value
    wsPasteMT.Range("N39").Value = wsCopy.Range("H58").Value
    wsPasteMT.Range("O39").Value = wsCopy.Range("I58").Value
    wsPasteMT.Range("P39").Value = wsCopy.Range("K58").Value
    wsPasteMT.Range("Q39").Value = wsCopy.Range("L58").Value
    wsPasteMT.Range("R39").Value = wsCopy.Range("N58").Value
    wsPasteMT.Range("S39").Value = wsCopy.Range("O58").Value

ElseIf IsEmpty(Range("A48").Value) Then

    'This Copies the Data (Line 6)
    wsPasteSD.Range("B29").Value = wsCopy.Range("F17").Value
    wsPasteSD.Range("C29").Value = wsCopy.Range("G17").Value
    wsPasteSD.Range("D29").Value = wsCopy.Range("H17").Value
    wsPasteSD.Range("E29").Value = wsCopy.Range("J17").Value
    wsPasteSD.Range("F29").Value = wsCopy.Range("N17").Value
    wsPasteSD.Range("G29").Value = wsCopy.Range("O17").Value
    wsPasteSD.Range("H29").Value = wsCopy.Range("P17").Value
    wsPasteSD.Range("I29").Value = wsCopy.Range("Q17").Value
    wsPasteSD.Range("J29").Value = wsCopy.Range("F35").Value
    wsPasteSD.Range("K29").Value = wsCopy.Range("G35").Value
    wsPasteSD.Range("L29").Value = wsCopy.Range("H35").Value
    wsPasteSD.Range("M29").Value = wsCopy.Range("I35").Value
    wsPasteSD.Range("N29").Value = wsCopy.Range("K35").Value
    wsPasteSD.Range("O29").Value = wsCopy.Range("L35").Value
    wsPasteSD.Range("P29").Value = wsCopy.Range("M57").Value

    'This Copies the Data to manually Verify (Line 6)
    wsPasteSD.Range("R8").Value = wsCopy.Range("F10").Value
    wsPasteSD.Range("S8").Value = wsCopy.Range("F11").Value
    wsPasteSD.Range("T8").Value = wsCopy.Range("F12").Value
    wsPasteSD.Range("U8").Value = wsCopy.Range("F13").Value
    wsPasteSD.Range("V8").Value = wsCopy.Range("O10").Value
    wsPasteSD.Range("W8").Value = wsCopy.Range("O11").Value
    wsPasteSD.Range("X8").Value = wsCopy.Range("O12").Value
    wsPasteSD.Range("Y8").Value = wsCopy.Range("O13").Value
    wsPasteSD.Range("Z8").Value = wsCopy.Range("F4").Value
    wsPasteSD.Range("AA8").Value = wsCopy.Range("F5").Value
    wsPasteSD.Range("AB8").Value = wsCopy.Range("F6").Value
    wsPasteSD.Range("AC8").Value = wsCopy.Range("F7").Value
    wsPasteSD.Range("AD8").Value = wsCopy.Range("Q4").Value
    wsPasteSD.Range("AE8").Value = wsCopy.Range("P6").Value
    wsPasteSD.Range("AF8").Value = wsCopy.Range("P7").Value

    'This Copies the 1111 Data (Line 6)
    wsPaste4012.Range("D28").Value = wsCopy.Range("F100").Value
    wsPaste4012.Range("E28").Value = wsCopy.Range("H100").Value
    wsPaste4012.Range("G28").Value = wsCopy.Range("F102").Value
    wsPaste4012.Range("H28").Value = wsCopy.Range("H102").Value
    wsPaste4012.Range("K29").Value = wsCopy.Range("L101").Value
    wsPaste4012.Range("L29").Value = wsCopy.Range("M101").Value
    wsPaste4012.Range("M29").Value = wsCopy.Range("H17").Value
    wsPaste4012.Range("N29").Value = wsCopy.Range("F90").Value
    wsPaste4012.Range("O29").Value = wsCopy.Range("R35").Value
    wsPaste4012.Range("P29").Value = wsCopy.Range("R48").Value
    wsPaste4012.Range("R29").Value = wsCopy.Range("L92").Value
    wsPaste4012.Range("S29").Value = wsCopy.Range("O11").Value
    
    'This Copies the Remove from Data (Line 6)
    wsPasteMT.Range("A48").Value = wsCopy.Range("Q5").Value
    wsPasteMT.Range("C48").Value = wsCopy.Range("I18").Value
    wsPasteMT.Range("D48").Value = wsCopy.Range("K18").Value
    wsPasteMT.Range("E48").Value = wsCopy.Range("L18").Value
    wsPasteMT.Range("F48").Value = wsCopy.Range("M18").Value
    wsPasteMT.Range("G48").Value = wsCopy.Range("M36").Value
    wsPasteMT.Range("H48").Value = wsCopy.Range("N36").Value
    wsPasteMT.Range("I48").Value = wsCopy.Range("O36").Value
    wsPasteMT.Range("J48").Value = wsCopy.Range("P36").Value
    wsPasteMT.Range("K48").Value = wsCopy.Range("Q36").Value
    wsPasteMT.Range("L48").Value = wsCopy.Range("F58").Value
    wsPasteMT.Range("M48").Value = wsCopy.Range("G58").Value
    wsPasteMT.Range("N48").Value = wsCopy.Range("H58").Value
    wsPasteMT.Range("O48").Value = wsCopy.Range("I58").Value
    wsPasteMT.Range("P48").Value = wsCopy.Range("K58").Value
    wsPasteMT.Range("Q48").Value = wsCopy.Range("L58").Value
    wsPasteMT.Range("R48").Value = wsCopy.Range("N58").Value
    wsPasteMT.Range("S48").Value = wsCopy.Range("O58").Value
    
ElseIf IsEmpty(Range("A57").Value) Then
    
    'This Copies the Data (Line 7)
    wsPasteSD.Range("B32").Value = wsCopy.Range("F17").Value
    wsPasteSD.Range("C32").Value = wsCopy.Range("G17").Value
    wsPasteSD.Range("D32").Value = wsCopy.Range("H17").Value
    wsPasteSD.Range("E32").Value = wsCopy.Range("J17").Value
    wsPasteSD.Range("F32").Value = wsCopy.Range("N17").Value
    wsPasteSD.Range("G32").Value = wsCopy.Range("O17").Value
    wsPasteSD.Range("H32").Value = wsCopy.Range("P17").Value
    wsPasteSD.Range("I32").Value = wsCopy.Range("Q17").Value
    wsPasteSD.Range("J32").Value = wsCopy.Range("F35").Value
    wsPasteSD.Range("K32").Value = wsCopy.Range("G35").Value
    wsPasteSD.Range("L32").Value = wsCopy.Range("H35").Value
    wsPasteSD.Range("M32").Value = wsCopy.Range("I35").Value
    wsPasteSD.Range("N32").Value = wsCopy.Range("K35").Value
    wsPasteSD.Range("O32").Value = wsCopy.Range("L35").Value
    wsPasteSD.Range("P32").Value = wsCopy.Range("M57").Value

    'This Copies the Data to manually Verify (Line 7)
    wsPasteSD.Range("R9").Value = wsCopy.Range("F10").Value
    wsPasteSD.Range("S9").Value = wsCopy.Range("F11").Value
    wsPasteSD.Range("T9").Value = wsCopy.Range("F12").Value
    wsPasteSD.Range("U9").Value = wsCopy.Range("F13").Value
    wsPasteSD.Range("V9").Value = wsCopy.Range("O10").Value
    wsPasteSD.Range("W9").Value = wsCopy.Range("O11").Value
    wsPasteSD.Range("X9").Value = wsCopy.Range("O12").Value
    wsPasteSD.Range("Y9").Value = wsCopy.Range("O13").Value
    wsPasteSD.Range("Z9").Value = wsCopy.Range("F4").Value
    wsPasteSD.Range("AA9").Value = wsCopy.Range("F5").Value
    wsPasteSD.Range("AB9").Value = wsCopy.Range("F6").Value
    wsPasteSD.Range("AC9").Value = wsCopy.Range("F7").Value
    wsPasteSD.Range("AD9").Value = wsCopy.Range("Q4").Value
    wsPasteSD.Range("AE9").Value = wsCopy.Range("P6").Value
    wsPasteSD.Range("AF9").Value = wsCopy.Range("P7").Value
    
    'This Copies the 1111 Data (Line 7)
    wsPaste4012.Range("D31").Value = wsCopy.Range("F100").Value
    wsPaste4012.Range("E31").Value = wsCopy.Range("H100").Value
    wsPaste4012.Range("G31").Value = wsCopy.Range("F102").Value
    wsPaste4012.Range("H31").Value = wsCopy.Range("H102").Value
    wsPaste4012.Range("K32").Value = wsCopy.Range("L101").Value
    wsPaste4012.Range("L32").Value = wsCopy.Range("M101").Value
    wsPaste4012.Range("M32").Value = wsCopy.Range("H17").Value
    wsPaste4012.Range("N32").Value = wsCopy.Range("F90").Value
    wsPaste4012.Range("O32").Value = wsCopy.Range("R35").Value
    wsPaste4012.Range("P32").Value = wsCopy.Range("R48").Value
    wsPaste4012.Range("R32").Value = wsCopy.Range("L92").Value
    wsPaste4012.Range("S32").Value = wsCopy.Range("O11").Value
    
    'This Copies the Remove from Data (Line 7)
    wsPasteMT.Range("A57").Value = wsCopy.Range("Q5").Value
    wsPasteMT.Range("C57").Value = wsCopy.Range("I18").Value
    wsPasteMT.Range("D57").Value = wsCopy.Range("K18").Value
    wsPasteMT.Range("E57").Value = wsCopy.Range("L18").Value
    wsPasteMT.Range("F57").Value = wsCopy.Range("M18").Value
    wsPasteMT.Range("G57").Value = wsCopy.Range("M36").Value
    wsPasteMT.Range("H57").Value = wsCopy.Range("N36").Value
    wsPasteMT.Range("I57").Value = wsCopy.Range("O36").Value
    wsPasteMT.Range("J57").Value = wsCopy.Range("P36").Value
    wsPasteMT.Range("K57").Value = wsCopy.Range("Q36").Value
    wsPasteMT.Range("L57").Value = wsCopy.Range("F58").Value
    wsPasteMT.Range("M57").Value = wsCopy.Range("G58").Value
    wsPasteMT.Range("N57").Value = wsCopy.Range("H58").Value
    wsPasteMT.Range("O57").Value = wsCopy.Range("I58").Value
    wsPasteMT.Range("P57").Value = wsCopy.Range("K58").Value
    wsPasteMT.Range("Q57").Value = wsCopy.Range("L58").Value
    wsPasteMT.Range("R57").Value = wsCopy.Range("N58").Value
    wsPasteMT.Range("S57").Value = wsCopy.Range("O58").Value
    
ElseIf IsEmpty(Range("A66").Value) Then

    'This Copies the Data (Line 8)
    wsPasteSD.Range("B35").Value = wsCopy.Range("F17").Value
    wsPasteSD.Range("C35").Value = wsCopy.Range("G17").Value
    wsPasteSD.Range("D35").Value = wsCopy.Range("H17").Value
    wsPasteSD.Range("E35").Value = wsCopy.Range("J17").Value
    wsPasteSD.Range("F35").Value = wsCopy.Range("N17").Value
    wsPasteSD.Range("G35").Value = wsCopy.Range("O17").Value
    wsPasteSD.Range("H35").Value = wsCopy.Range("P17").Value
    wsPasteSD.Range("I35").Value = wsCopy.Range("Q17").Value
    wsPasteSD.Range("J35").Value = wsCopy.Range("F35").Value
    wsPasteSD.Range("K35").Value = wsCopy.Range("G35").Value
    wsPasteSD.Range("L35").Value = wsCopy.Range("H35").Value
    wsPasteSD.Range("M35").Value = wsCopy.Range("I35").Value
    wsPasteSD.Range("N35").Value = wsCopy.Range("K35").Value
    wsPasteSD.Range("O35").Value = wsCopy.Range("L35").Value
    wsPasteSD.Range("P35").Value = wsCopy.Range("M57").Value

    'This Copies the Data to manually Verify (Line 8)
    wsPasteSD.Range("R10").Value = wsCopy.Range("F10").Value
    wsPasteSD.Range("S10").Value = wsCopy.Range("F11").Value
    wsPasteSD.Range("T10").Value = wsCopy.Range("F12").Value
    wsPasteSD.Range("U10").Value = wsCopy.Range("F13").Value
    wsPasteSD.Range("V10").Value = wsCopy.Range("O10").Value
    wsPasteSD.Range("W10").Value = wsCopy.Range("O11").Value
    wsPasteSD.Range("X10").Value = wsCopy.Range("O12").Value
    wsPasteSD.Range("Y10").Value = wsCopy.Range("O13").Value
    wsPasteSD.Range("Z10").Value = wsCopy.Range("F4").Value
    wsPasteSD.Range("AA10").Value = wsCopy.Range("F5").Value
    wsPasteSD.Range("AB10").Value = wsCopy.Range("F6").Value
    wsPasteSD.Range("AC10").Value = wsCopy.Range("F7").Value
    wsPasteSD.Range("AD10").Value = wsCopy.Range("Q4").Value
    wsPasteSD.Range("AE10").Value = wsCopy.Range("P6").Value
    wsPasteSD.Range("AF10").Value = wsCopy.Range("P7").Value

    'This Copies the 1111 Data(Line 8)
    wsPaste4012.Range("D34").Value = wsCopy.Range("F100").Value
    wsPaste4012.Range("E34").Value = wsCopy.Range("H100").Value
    wsPaste4012.Range("G34").Value = wsCopy.Range("F102").Value
    wsPaste4012.Range("H34").Value = wsCopy.Range("H102").Value
    wsPaste4012.Range("K35").Value = wsCopy.Range("L101").Value
    wsPaste4012.Range("L35").Value = wsCopy.Range("M101").Value
    wsPaste4012.Range("M35").Value = wsCopy.Range("H17").Value
    wsPaste4012.Range("N35").Value = wsCopy.Range("F90").Value
    wsPaste4012.Range("O35").Value = wsCopy.Range("R35").Value
    wsPaste4012.Range("P35").Value = wsCopy.Range("R48").Value
    wsPaste4012.Range("R35").Value = wsCopy.Range("L92").Value
    wsPaste4012.Range("S35").Value = wsCopy.Range("O11").Value
     
    'This Copies the Remove from Data(Line 8)
    wsPasteMT.Range("A66").Value = wsCopy.Range("Q5").Value
    wsPasteMT.Range("C66").Value = wsCopy.Range("I18").Value
    wsPasteMT.Range("D66").Value = wsCopy.Range("K18").Value
    wsPasteMT.Range("E66").Value = wsCopy.Range("L18").Value
    wsPasteMT.Range("F66").Value = wsCopy.Range("M18").Value
    wsPasteMT.Range("G66").Value = wsCopy.Range("M36").Value
    wsPasteMT.Range("H66").Value = wsCopy.Range("N36").Value
    wsPasteMT.Range("I66").Value = wsCopy.Range("O36").Value
    wsPasteMT.Range("J66").Value = wsCopy.Range("P36").Value
    wsPasteMT.Range("K66").Value = wsCopy.Range("Q36").Value
    wsPasteMT.Range("L66").Value = wsCopy.Range("F58").Value
    wsPasteMT.Range("M66").Value = wsCopy.Range("G58").Value
    wsPasteMT.Range("N66").Value = wsCopy.Range("H58").Value
    wsPasteMT.Range("O66").Value = wsCopy.Range("I58").Value
    wsPasteMT.Range("P66").Value = wsCopy.Range("K58").Value
    wsPasteMT.Range("Q66").Value = wsCopy.Range("L58").Value
    wsPasteMT.Range("R66").Value = wsCopy.Range("N58").Value
    wsPasteMT.Range("S66").Value = wsCopy.Range("O58").Value
   
ElseIf IsEmpty(Range("A75").Value) Then
    
    'This Copies the Data (Line 9)
    wsPasteSD.Range("B38").Value = wsCopy.Range("F17").Value
    wsPasteSD.Range("C38").Value = wsCopy.Range("G17").Value
    wsPasteSD.Range("D38").Value = wsCopy.Range("H17").Value
    wsPasteSD.Range("E38").Value = wsCopy.Range("J17").Value
    wsPasteSD.Range("F38").Value = wsCopy.Range("N17").Value
    wsPasteSD.Range("G38").Value = wsCopy.Range("O17").Value
    wsPasteSD.Range("H38").Value = wsCopy.Range("P17").Value
    wsPasteSD.Range("I38").Value = wsCopy.Range("Q17").Value
    wsPasteSD.Range("J38").Value = wsCopy.Range("F35").Value
    wsPasteSD.Range("K38").Value = wsCopy.Range("G35").Value
    wsPasteSD.Range("L38").Value = wsCopy.Range("H35").Value
    wsPasteSD.Range("M38").Value = wsCopy.Range("I35").Value
    wsPasteSD.Range("N38").Value = wsCopy.Range("K35").Value
    wsPasteSD.Range("O38").Value = wsCopy.Range("L35").Value
    wsPasteSD.Range("P38").Value = wsCopy.Range("M57").Value
    
    'This Copies the Data to manually Verify (Line 9)
    wsPasteSD.Range("R11").Value = wsCopy.Range("F10").Value
    wsPasteSD.Range("S11").Value = wsCopy.Range("F11").Value
    wsPasteSD.Range("T11").Value = wsCopy.Range("F12").Value
    wsPasteSD.Range("U11").Value = wsCopy.Range("F13").Value
    wsPasteSD.Range("V11").Value = wsCopy.Range("O10").Value
    wsPasteSD.Range("W11").Value = wsCopy.Range("O11").Value
    wsPasteSD.Range("X11").Value = wsCopy.Range("O12").Value
    wsPasteSD.Range("Y11").Value = wsCopy.Range("O13").Value
    wsPasteSD.Range("Z11").Value = wsCopy.Range("F4").Value
    wsPasteSD.Range("AA11").Value = wsCopy.Range("F5").Value
    wsPasteSD.Range("AB11").Value = wsCopy.Range("F6").Value
    wsPasteSD.Range("AC11").Value = wsCopy.Range("F7").Value
    wsPasteSD.Range("AD11").Value = wsCopy.Range("Q4").Value
    wsPasteSD.Range("AE11").Value = wsCopy.Range("P6").Value
    wsPasteSD.Range("AF11").Value = wsCopy.Range("P7").Value

    'This Copies the 1111 Data(Line 9)
    wsPaste4012.Range("D37").Value = wsCopy.Range("F100").Value
    wsPaste4012.Range("E37").Value = wsCopy.Range("H100").Value
    wsPaste4012.Range("G37").Value = wsCopy.Range("F102").Value
    wsPaste4012.Range("H37").Value = wsCopy.Range("H102").Value
    wsPaste4012.Range("K38").Value = wsCopy.Range("L101").Value
    wsPaste4012.Range("L38").Value = wsCopy.Range("M101").Value
    wsPaste4012.Range("M38").Value = wsCopy.Range("H17").Value
    wsPaste4012.Range("N38").Value = wsCopy.Range("F90").Value
    wsPaste4012.Range("O38").Value = wsCopy.Range("R35").Value
    wsPaste4012.Range("P38").Value = wsCopy.Range("R48").Value
    wsPaste4012.Range("R38").Value = wsCopy.Range("L92").Value
    wsPaste4012.Range("S38").Value = wsCopy.Range("O11").Value
    
    'This Copies the Remove from Data (Line 9)
    wsPasteMT.Range("A75").Value = wsCopy.Range("Q5").Value
    wsPasteMT.Range("C75").Value = wsCopy.Range("I18").Value
    wsPasteMT.Range("D75").Value = wsCopy.Range("K18").Value
    wsPasteMT.Range("E75").Value = wsCopy.Range("L18").Value
    wsPasteMT.Range("F75").Value = wsCopy.Range("M18").Value
    wsPasteMT.Range("G75").Value = wsCopy.Range("M36").Value
    wsPasteMT.Range("H75").Value = wsCopy.Range("N36").Value
    wsPasteMT.Range("I75").Value = wsCopy.Range("O36").Value
    wsPasteMT.Range("J75").Value = wsCopy.Range("P36").Value
    wsPasteMT.Range("K75").Value = wsCopy.Range("Q36").Value
    wsPasteMT.Range("L75").Value = wsCopy.Range("F58").Value
    wsPasteMT.Range("M75").Value = wsCopy.Range("G58").Value
    wsPasteMT.Range("N75").Value = wsCopy.Range("H58").Value
    wsPasteMT.Range("O75").Value = wsCopy.Range("I58").Value
    wsPasteMT.Range("P75").Value = wsCopy.Range("K58").Value
    wsPasteMT.Range("Q75").Value = wsCopy.Range("L58").Value
    wsPasteMT.Range("R75").Value = wsCopy.Range("N58").Value
    wsPasteMT.Range("S75").Value = wsCopy.Range("O58").Value

ElseIf IsEmpty(Range("A84").Value) Then

    'This Copies the Data (Line 10)
    wsPasteSD.Range("B41").Value = wsCopy.Range("F17").Value
    wsPasteSD.Range("C41").Value = wsCopy.Range("G17").Value
    wsPasteSD.Range("D41").Value = wsCopy.Range("H17").Value
    wsPasteSD.Range("E41").Value = wsCopy.Range("J17").Value
    wsPasteSD.Range("F41").Value = wsCopy.Range("N17").Value
    wsPasteSD.Range("G41").Value = wsCopy.Range("O17").Value
    wsPasteSD.Range("H41").Value = wsCopy.Range("P17").Value
    wsPasteSD.Range("I41").Value = wsCopy.Range("Q17").Value
    wsPasteSD.Range("J41").Value = wsCopy.Range("F35").Value
    wsPasteSD.Range("K41").Value = wsCopy.Range("G35").Value
    wsPasteSD.Range("L41").Value = wsCopy.Range("H35").Value
    wsPasteSD.Range("M41").Value = wsCopy.Range("I35").Value
    wsPasteSD.Range("N41").Value = wsCopy.Range("K35").Value
    wsPasteSD.Range("O41").Value = wsCopy.Range("L35").Value
    wsPasteSD.Range("P41").Value = wsCopy.Range("M57").Value
    
    'This Copies the Data to manually Verify (Line 10)
    wsPasteSD.Range("R12").Value = wsCopy.Range("F10").Value
    wsPasteSD.Range("S12").Value = wsCopy.Range("F11").Value
    wsPasteSD.Range("T12").Value = wsCopy.Range("F12").Value
    wsPasteSD.Range("U12").Value = wsCopy.Range("F13").Value
    wsPasteSD.Range("V12").Value = wsCopy.Range("O10").Value
    wsPasteSD.Range("W12").Value = wsCopy.Range("O11").Value
    wsPasteSD.Range("X12").Value = wsCopy.Range("O12").Value
    wsPasteSD.Range("Y12").Value = wsCopy.Range("O13").Value
    wsPasteSD.Range("Z12").Value = wsCopy.Range("F4").Value
    wsPasteSD.Range("AA12").Value = wsCopy.Range("F5").Value
    wsPasteSD.Range("AB12").Value = wsCopy.Range("F6").Value
    wsPasteSD.Range("AC12").Value = wsCopy.Range("F7").Value
    wsPasteSD.Range("AD12").Value = wsCopy.Range("Q4").Value
    wsPasteSD.Range("AE12").Value = wsCopy.Range("P6").Value
    wsPasteSD.Range("AF12").Value = wsCopy.Range("P7").Value
    
    'This Copies the 1111 Data (Line 10)
    wsPaste4012.Range("D40").Value = wsCopy.Range("F100").Value
    wsPaste4012.Range("E40").Value = wsCopy.Range("H100").Value
    wsPaste4012.Range("G40").Value = wsCopy.Range("F102").Value
    wsPaste4012.Range("H40").Value = wsCopy.Range("H102").Value
    wsPaste4012.Range("K41").Value = wsCopy.Range("L101").Value
    wsPaste4012.Range("L41").Value = wsCopy.Range("M101").Value
    wsPaste4012.Range("M41").Value = wsCopy.Range("H17").Value
    wsPaste4012.Range("N41").Value = wsCopy.Range("F90").Value
    wsPaste4012.Range("O41").Value = wsCopy.Range("R35").Value
    wsPaste4012.Range("P41").Value = wsCopy.Range("R48").Value
    wsPaste4012.Range("R41").Value = wsCopy.Range("L92").Value
    wsPaste4012.Range("S41").Value = wsCopy.Range("O11").Value
    
    'This Copies the Remove from Data (Line 10)
    wsPasteMT.Range("A84").Value = wsCopy.Range("Q5").Value
    wsPasteMT.Range("C84").Value = wsCopy.Range("I18").Value
    wsPasteMT.Range("D84").Value = wsCopy.Range("K18").Value
    wsPasteMT.Range("E84").Value = wsCopy.Range("L18").Value
    wsPasteMT.Range("F84").Value = wsCopy.Range("M18").Value
    wsPasteMT.Range("G84").Value = wsCopy.Range("M36").Value
    wsPasteMT.Range("H84").Value = wsCopy.Range("N36").Value
    wsPasteMT.Range("I84").Value = wsCopy.Range("O36").Value
    wsPasteMT.Range("J84").Value = wsCopy.Range("P36").Value
    wsPasteMT.Range("K84").Value = wsCopy.Range("Q36").Value
    wsPasteMT.Range("L84").Value = wsCopy.Range("F58").Value
    wsPasteMT.Range("M84").Value = wsCopy.Range("G58").Value
    wsPasteMT.Range("N84").Value = wsCopy.Range("H58").Value
    wsPasteMT.Range("O84").Value = wsCopy.Range("I58").Value
    wsPasteMT.Range("P84").Value = wsCopy.Range("K58").Value
    wsPasteMT.Range("Q84").Value = wsCopy.Range("L58").Value
    wsPasteMT.Range("R84").Value = wsCopy.Range("N58").Value
    wsPasteMT.Range("S84").Value = wsCopy.Range("O58").Value
  
Else

MsgBox ("Maximum Rows Reached")

End If
End With
End Sub
 

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.
Sort by date Sort by votes
Looping is very slow. Using arrays can speed things up considerably. It would be easier to help if you could upload a copies of your two files to a free site such as www.box.com or www.dropbox.com. Once you do that, mark each file for 'Sharing' and you will be given a link to each file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).
 
Upvote 0
You must log in or register to reply here.

Similar threads

D
  • Question Question
Copy paste data from another workbook
Replies
0
Views
1K
DreyFox
D
S
  • Question Question
VBA Code to Copy Dashboard Date Data, Lookup that Date on YTD Data tab, and Paste Value?
Replies
1
Views
415
SirGruffles
S
J
  • Solved
VBA Code To Loop Through One Worksheet and Paste Certain Values Into Another
Replies
5
Views
137
Peter_SSs
Peter_SSs
C
  • Question Question
How to create a macro that copy pastes a fix range into another sheet and takes into consideration a cell value
Replies
9
Views
749
Flaiban
F
G
  • Question Question
Copy Range of Cells based on Criteria, Paste it on rows below it, Do This Until All conditions are met, Then Delete All Copied Rows
Replies
0
Views
542
glaccounting
G

Forum statistics

Threads
1,223,886
Messages
6,175,194
Members
452,616
Latest member
intern444

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