Hi I have the following code which I need to Loop but it keeps coming up
with the following error

Compile Error Loop Without Do

Can you see where I have gone wrong? I do have a Do Until statement, if I
take out the word Loop out it comes up with the Error
Compile Error Do Without Loop what's wrong?

Sheets("Data").Select
Range("A2").Select
Do Until ActiveCell = ""
If ActiveCell "" Then
Selection.Copy
Sheets("Advice").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Advice").Select
If Range("P51") 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Sheets("Data").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
End If
Exit Do
Sheets("Lookup").Select

End Sub


Thanks Bob