Luka
Couple of examples...
Sub ActivateNextBlankDown()
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sub Interval_Entry()
i = 1
todo = InputBox("Enter a number")
Do While todo * i < 910
Cells(todo * i, 1) = 88
i = i + 1
Loop
End Sub
Gord Dibben Excel MVP