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

Option Explicit

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

ネタ元

• http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_100.html