Loop until empty cell

[DomHarrison]

I'm trying to copy and paste until I reach a blank cell. How can I amend the below?


Sub LoopTest()


'
Range("A1").Select
Selection.Copy
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 4)).Select
ActiveSheet.Paste
Selection.End(xlToRight).Select

'Do Until IsEmpty(Selection.End(xlToRight).Select)
Selection.Copy
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 4)).Select
ActiveSheet.Paste
Selection.End(xlToRight).Select

'Loop


End Sub

 

[danielphayward]

Are you intending to comment out some lines? When you put a single quote mark ('), it tells the VBA editor to ignore it.

 

[DomHarrison]

I had just done that whilst testing, as the loop VBA I entered is not currently working as hoped.

 

[Joe4]

Which column/row are you trying to copy down?
Which column/row are you looking at to determine how far down to copy it?