IF THEN LOOP WHICH ENDS WHEN A COLUMNS NEXT CELL IS BLANK

I'm trying to make a logical loop in VBA that will copy a label in column list and paste it to a specific cell which I use as key for Vlookups. I need to copy paste each of label's in my list (column), recalculating and printing the report, until the next cell in this column is blank. I stuck trying to get the macro to move down 1 row until the blank condition has been met. In lotus I can do this with the following statement: {Down}
{if @cellpointer("type")="b"}{beep}{edit-goto $a:$a$36}{quit}. HELP!!