xlDown will stop at the first blank cell.

OK if you know there are no intervening blank cells.

The preferred method is to work from bottom up.

Sub findbottom()
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
End Sub


Gord Dibben MS Excel MVP

On Thu, 3 Aug 2006 13:30:23 -0400, ledzepe
wrote:


Hi everyone,

I have a large Excel file that I need to append to. I want to append to
the first blank row in Column A. How do I do that? My script's below:

Range("A1").Select 'to select
column A
Range(Selection, Selection.End(xlDown)).Select 'to goto last row w/
data
???????????? 'move one
row down???