malaki1974
New Member
- Joined
- Feb 14, 2006
- Messages
- 46
Currently this does the job for only the first row - I need it to loop through all rows:
Sub LastCellBeforeBlankInRow()
Range("A3:A6800").End(xlToRight).Copy _
Destination:=Worksheets("Sheet3").Range("AA1")
End Sub
Sub LastCellBeforeBlankInRow()
Range("A3:A6800").End(xlToRight).Copy _
Destination:=Worksheets("Sheet3").Range("AA1")
End Sub