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

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


--
Regards
Frank Kabel
Frankfurt, Germany


VDM wrote:
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

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

--
Don Guillett
SalesAid Software

"VDM" wrote in message
...
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