Find last row containing data

This gets the last row in the spreadsheet assuming even one cell is occupied (if not a simple If evaluation can bypass the error without an error trap):

Dim LRall As Long
LRall = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Source: http://www.mrexcel.com/forum/showpost.php?s=84cc01a2fc4b3f02e473196fbf1dea64&p=422255&postcount=7

« Use SUMIF on a column defined by MATCH

Creating a list of unique values »