Row プロパティ

 対象セル範囲の最初の領域の先頭行の番号を返します。値の取得のみ可能です。長整数型 (Long) の値を使用します。

Sub test()
Dim x As Long
x = ActiveSheet.UsedRange.Row
MsgBox (x)
End Sub