Помогите с Excel

[mrs2000]

Надо узнать номер последней НЕ ПУСТОЙ строки!
Перебирать с начала до не пустой слишком долго.
Межет функция кака есть. Сам не могу найти.
Заранее спасибо.

[NoSpam]

Sub LastColumn()
Dim s As String, p As Long
s = ActiveSheet.UsedRange.Address
p = InStr(1, s, ":")
Debug.Print Mid(s, p + 2, 1)
End Sub

или

mRowCnt = ActiveCell.SpecialCells(xlLastCell).Row