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