Hopefuly this quick answer will do.
This will find the next available row :-
'---------------------------------------------------------------------------
NextRow = Worksheets("MySheet").Range("A65536").End(xlUp).Ro w +1
'---------------------------------------------------------------------------
This uses column A - make sure you use a column that you know will hav
something in the bottom cell

--
Message posted from http://www.ExcelForum.com