how to detect the ending row?

Cells(Cells.Rows.Count,1).End(xlUp).Offset(1,0)

is the cell below the last filled cell of column A.

ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count + 1

is the first row (number) below the used range.

This helps!

Originally Posted by VBA Noob

These links may also be useful

http://www.rondebruin.nl/last.htm

http://www.ozgrid.com/VBA/ExcelRanges.htm

VBA Noob

This works for me.

Originally Posted by mikerickson

Cells(Cells.Rows.Count,1).End(xlUp).Offset(1,0)

is the cell below the last filled cell of column A.

ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count + 1

is the first row (number) below the used range.