Excelが認知している最終行(列)を取得する

Option Explicit

Sub TEST14()
    ' 最終セルを表示
    MsgBox ActiveSheet.Cells.SpecialCells(xlLastCell).Address
End Sub

ネタ元