Excel VBA UsedRange で使用範囲を取得

Excel VBA UsedRange で使用範囲を取得して Rows.Count で行数最終行は Cells(objRANGE.Rows.Count, 1).Row なんて感じで遠回りで取得してみた

Dim objRANGE As Range
Set objRANGE = ActiveSheet.UsedRange 'セルの使用範囲を取得

VBA Excel 表範囲で検索すると
下記のわかりやすいページがヒットします

セル範囲の取得セル範囲の取得
http://officetanaka.net/excel/vba/cell/cell10.htm
より
＞
＞ワークシートで使用されているセル範囲
＞ワークシート.UsedRange

↑が取れるので、

1.アクティブシートの使用範囲を取得してみた
https://www.youtube.com/watch?v=w1xG7BSdxDQ

単純に取得して、アドレスを表示しただけでした

Sub UsedRange_test001()

    Dim objRANGE As Range
    
    Set objRANGE = ActiveSheet.UsedRange  'セルの使用範囲を取得

    '単純に↑でSET取得したRANGEに対して、Aaddressを表示してみた
    Debug.Print "ActiveSheet.UsedRange 使用範囲は:" & objRANGE.Address

End Sub

2.取得した範囲の行数が知りたかったので、Rows.Count で行数を取得してみた
https://youtu.be/w1xG7BSdxDQ?t=166

Sub UsedRange_test002()

    Dim objRANGE As Range
    
    Set objRANGE = ActiveSheet.UsedRange  'セルの使用範囲を取得

    '単純に↑でSET取得したRANGEに対して、Aaddressを表示してみた
    Debug.Print "ActiveSheet.UsedRange 使用範囲は:" & objRANGE.Address

    '単純に行数が知りたかったので、Rows.Count
    Debug.Print "行数は:" & objRANGE.Rows.Count

End Sub

3.最終行が知りたかったので Cells(行数,1).Rowで取得してみた
https://youtu.be/w1xG7BSdxDQ?t=218

まぁ.Addressで$C$3:$F$6←がわかるので、ここの6からでもいいんだけど、

Sub UsedRange_test003()

    Dim objRANGE As Range  '範囲を入れるRange型
    Dim y As Integer       '行
    
    Set objRANGE = ActiveSheet.UsedRange  'セルの使用範囲を取得

    '単純に↑でSET取得したRANGEに対して、Aaddressを表示してみた
    Debug.Print "ActiveSheet.UsedRange 使用範囲は:" & objRANGE.Address

    '単純に行数が知りたかったので、Rows.Count
    y = objRANGE.Rows.Count
    Debug.Print "行数は:" & y
    
    'Cells(行数,1).Rowで実際の最終行を取得してみた
    Debug.Print "実際の最終行は:" & objRANGE.Cells(y, 1).Row

End Sub