GetLastUsedRowNumberInWorksheet

Function GetLastUsedRowNumberInWorksheet( _
    ws As Worksheet _
) As Long
    Dim _
        rng As Range, _
        rngResults As Range
    Set rng = _
        ws.Cells
    Set rngResults = _
        rng.Find( _
            what:="*", _
            After:=rng.Cells(1), _
            Lookat:=xlPart, _
            LookIn:=xlFormulas, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious, _
            MatchCase:=False _
        )
    If _
        rngResults Is Nothing _
        Then
        GetLastUsedRowNumberInWorksheet = _
            -1
    Else
        GetLastUsedRowNumberInWorksheet = _
            rngResults.Row
    End If
    Exit Function
ErrorHandler:
    GetLastUsedRowNumberInWorksheet = _
        -1
End Function