VBA小技

ワークシートの規定列最終行取得(1列目の最終行取得の例)

    With ActiveSheet
        MsgBox .Cells(.Rows.Count, 1).End(xlUp).row
    End With