Macro to copy each rows last column used contents to another cell in the same row

[malaki1974]

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

 

[malaki1974]

I was able to get the result I wanted using:

Sub LastCellBeforeBlankInRow()

For Each c In Worksheets("Sheet3").Range("A1:A6800").Cells
c.End(xlToRight).Copy _
Destination:=Worksheets("Sheet3").Range("Q" & c.Row)
Next

End Sub