シートの最終行、最終列の取得

最終行の取得
Cells(Rows.Count, ｎ).End(xlUp).Row


最終列の取得
Cells(ｎ, Columns.Count).End(xlToLeft).Column



赤字のｎの部分に、最終行を取得したい列番号
もしくは、最終列を取得したい行番号を置き換えて
使用します。


たとえば、

Private Sub Test()
Dim MaxRow As Integer
    MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
End Sub

のようなコードを実行すると、変数MaxRowには、
アクティブシート1列目の、最終行の行番号が
格納されます。