VBA Do while loop problem

[1021557]

Hi, I have a sheet where I want the contents of row G (where it has contents) to copy itself to the corresponding row in column A until the code has gone right through column G. The first such item is in row 1383 column G and occurs randomly down the rest of the spreadsheet. I've tried writing this but it doesn't do anything. Any help very much appreciated

Here is the code:

Sub Loop1()

Application.Goto Reference:="R1383C1"

Do
ActiveCell.FormulaR1C1 = "=(RC[6])"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, 6).Select
Loop Until IsEmpty(ActiveCell.Offset(0, 6))
End Sub

Thanks

 

[Scott Huish]

You shouldn't need a loop:

Sub test()
Range("A1383:A" & Range("G1383").End(xlDown).Row).Formula = "=G1383"
End Sub