Find the last row

L

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??
 
B

Bob Phillips

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

--
HTH

Bob Phillips

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

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
 
Top