Last Row

[VDM]

How do I get to the next blank row on a spreadsheet.

For example,

Row 1 is empty
Rows 2-10 contain data
I want to add data to row 11

TIA

 

[Frank Kabel]

Hi
try
Dim lastrow as long
Dim next_free_row as long
lastrow = ActiveSheet.Cells(Rows.count, "A").End(xlUp).row
next_free_row = lastrow+1

 

[Don Guillett]

assuming you want to find this in col A.
nextblankrow=cells(rows.count,1).end(xlup).row+1