Hi
I have the code
But this does not seem to work, the code goes on continuously and does not stop at my last row. Can someone help please.
How my data looks
Col A Col B Col C ...
x
Blank
blank
balnk
x
blank
blank
blank
x
...
Thanks in advanced,
Naomie.
I have the code
Code:
Sub LastRow()
Dim LastRow As Long, r As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
r = 1
Do Until r = LastRow
Sheets("sheet3").Range("A1:A43").Copy
Sheets("sheet2").Range("H1").End(xlDown).Offset(1, 0).PasteSpecial
Loop
End Sub
But this does not seem to work, the code goes on continuously and does not stop at my last row. Can someone help please.
How my data looks
Col A Col B Col C ...
x
Blank
blank
balnk
x
blank
blank
blank
x
...
Thanks in advanced,
Naomie.