【Excel】選択セルの行列と選択セルの最終行列

Sub Test()

'
' Test Macro
'
' 行列を求める。
'
    ' 特定のセルを選択する。(i：行、j：列)
    ActiveSheet.Cells(i, j).Select

    ' 選択セルの行求める。
    MsgBox ActiveCell.Row

    ' 選択セルの列を求める。
    MsgBox Activecell.Column

    ' 選択セルの最終行を求める。
    MsgBox ActiveSheet.Cells(i, j).End(xlDown).Row

    ' 選択セルの最終列を求める。
    MsgBox ActiveSheet.Cells(i, j).End(xlToRight).Column

End Sub