Loop help

[kola5567]

I am trying to creat a program that will if a cell is blank, it will
move up a row and keep looking for the first cell with information. I
think this program would work, except I can't get the first line under
Beta correct. I don't know how to tell it to move up one cell and then
jump back to Alpha. Any ideas? Maybe there is an easier way I a'm not
thinking of.

Alpha:

If ActiveCell.FormulaR1C1 = "=ISBLANK(RC[-3])" = True Then GoTo
Beta Else GoTo Gamma

Beta:
Range("D18-1").Select
GoTo Alpha

Gamma:

 

[theDude]

Replace your code:

Code: