Finding First empty cell - Fast?

[I_AM]

Hi,
I am using the following code to find the first empty cell in column 1 so as to paste more info onto page. It works ok but with a number of thousands of entries it takes an age to complete.
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

I have tried to use in conjunction with “.SpecialCells(xlCellTypeLastCell).Select”, however I can’t get this to work on a single column only.

Is there a faster way of finding and selecting the first empty cell?

Thanks Regards Ron

 

[Tom Urtis]

Sub Test1()
'From the bottom up
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

Sub Test2()
'From the top down
If IsEmpty(Range("A2")) Then
Range("A2").Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If
End Sub

 

[I_AM]

Once again Perfect!
Once again my thanks Regards Ron