Last Row

V

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
 
F

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
 
D

Don Guillett

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