ник: Силыч
но это из VBA Excelного если:
Function LastR() As Long
'Возвращает кол-во строк в шЫте
'синтаксис области копирования =Range("H3:H" & LastR())
Dim r As Range
Set r = Selection
Selection.SpecialCells(xlCellTypeLastCell).Select
LastR = Selection.Row
r.Select
End Function