Some people may not agree with this method, but it works in a quick fix

dim finalRow as Long
finalRow = Range("A65536").End(xlUp).Row

Just change A to whatever column you want to find where there i
nothing in the last cell

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