Finding next Blank Cell in Column

T

trickdos

Do until null
Range("a1").Offset(1, 0).Select
Loop


I am trying to find the next blank cell in a column to paste value
into. I thought this simple loop would do it, but it gets stuck a
this point. I am just beginning and would really appreciate your help
Thanks
 
T

Tom Ogilvy

Range("A1").Select
do while not isempty(activeCell)
activeCell.offset(1,0).Select
Loop

or

Range("A65536").End(xlup)(2).Select
 
Top