Find the last row

[ledzepe]

Hi everyone,

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

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

 

[Bob Phillips]

Range("A1").End(xlDown).Select

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Gord Dibben]

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