Loop On Two Columns

[VitesseCarOwner]

I have two columns of data J2:K1000, I need loop through both columns at the same time and copy the data into cells into E1 and F2, then run through the remainder of the code. The code below I have adapted but cannot get it to work correctly. Can anyone help?

Sub Test()
Dim LastRowColJ, LastRowColK As Long
Sheets("Sheet1").Select
LastRowColJ = Range("J65536").End(xlUp).Row
For Each c In Worksheets("Sheet1").Range("J2:J" & LastRowColJ).Cells
Sheets("Sheet1").Range("E1").Value = c
For Each d In Worksheets("Sheet1").Range("K2:K" & LastRowColJ).Cells
Sheets("Sheet1").Range("F2").Value = d
'My other code goes here!
Next
Next
End Sub

 

[rallcorn]

I think this does what you want:

Sub Test()
    Sheets("Sheet1").Range("E2:F" & Sheets("Sheet1").Range("J" & Rows.Count).End(xlUp).Row).Value = Sheets("Sheet1").Range("J2:K" & Sheets("Sheet1").Range("J" & Rows.Count).End(xlUp).Row).Value
End Sub

 

[VitesseCarOwner]

Sorry it does not work, its copting everything across rather than looping.

 

[rallcorn]

Sub Test()
Dim ColJLR As Long
Dim i As Long
ColJLR = Sheets("Sheet1").Range("J" & Rows.Count).End(xlUp).Row
For i = 2 To ColJLR
    Sheets("Sheet1").Range("E" & i & ":F" & i).Value = Sheets("Sheet1").Range("J" & i & ":K" & i).Value
    
    'Add other things you wish to do within row loop
Next i
        
MsgBox "Done!"
    
End Sub

 

[VitesseCarOwner]

Thankyou that works for me.