Excel find last row

gistfile1.vb

Function FindLastRow(Optional sheetToSearch As Worksheet) As Long
    If sheetToSearch Is Nothing Then Set sheetToSearch = ActiveSheet
    On Error GoTo handler
    FindLastRow = sheetToSearch.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Exit Function
handler:
    FindLastRow = 1 ' No data on sheet
End Function