I've just improved the LastRow function for release 1.3, to support spreadsheet data sets greater than 65536 rows, which is possible in Excel 2007 and Excel 2010.
This page lists the Excel constants required by the Excel Cells.Find function: http://techsupt.winbatch.com/ts/T000001033005F9.html
The resulting implementation is:
Const xlUp% = -4162
Const xlValues% = -4163
Const xlWhole% = 1
Const xlByRows% = 1
Const xlNext% = 1
Const xlPrevious% = 2
Public Property Get LastDataRowNo(colNo As Long) As Long
'Search for any entry searching backwards by Rows.
'Definition: Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte)
LastDataRowNo = varXLSheet.Cells.Find("*", Cell(1,colNo), _
xlValues, xlWhole, xlByRows, xlPrevious, False).Row
Look for this enhancement in release 1.3 coming soon :)