Finding next Blank Cell in Column

[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

 

[Tom Ogilvy]

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

or

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

 

[Don Guillett]

try incorporating this
x=range("a65536").end(xlup).row+1