[RESOLVED]Looping - if Cell value is blank go to next i

[Mitch_s_s]

This is what i have come up with
there may be easier ways i dont know....

range("J2:J3").select
Do Until i = range("B1").value
If ActiveCell.Value = "" Then
    Selection.EntireRow.Delete
End If
i = i + 1
Selection.Offset(2).Select
Loop