' Aux function: max value of arguments
Function Max(ParamArray Values())
  Dim x
  For Each x In Values
    If x > Max Then Max = x
  Next
End Function

' Последняя строка на листе Sh
' Если Sh не задан, то используется активный лист
' Если VisibleOnly=True, то результат только для видимых ячеек
Function LastRow(Optional Sh As Worksheet, Optional VisibleOnly As Boolean) As Long
  Dim SpecCells(), x, a$, i&, Rng As Range
  SpecCells = Array(xlCellTypeConstants, xlCellTypeFormulas, xlCellTypeComments)
  On Error Resume Next
  If Sh Is Nothing Then Set Sh = ActiveSheet
  Set Rng = Sh.UsedRange
  If VisibleOnly Then Set Rng = Rng.SpecialCells(xlCellTypeVisible)
  For Each x In SpecCells
    a = Rng.SpecialCells(x).EntireRow.Address(0, 0)
    i = Max(i, CLng(Mid(a, InStrRev(a, ":") + 1)))
  Next
  LastRow = i
End Function

Sub sub1()
MsgBox LastRow
End Sub