Rowプロパティでセル範囲の上端の行番号、Columnプロパティで左端の列番号を
取得します。

　セル範囲に右端の行番号、下端の列番号の取得は、Rows/Columnsプロパティを
一緒に使うことで実現できます。次のサンプルは、アクティブシートの使用中の
セル範囲の最終行番号、最終列番号を取得します。

●サンプル●

Sub RowColumnSamp1()

   Dim myLastRow As Long	'最終行を格納する変数
   Dim myLastCol As Integer	'最終列を格納する変数

   With ActiveSheet.UsedRange	'対象はアクティブシートの使用中のセル
      '最終行の行番号
      myLastRow = .Rows(.Rows.Count).Row
      '最終列の列番号	
      myLastCol = .Columns(.Columns.Count).Column
   End With

   MsgBox "使用済みセル範囲の" & Chr(13) & _
      "最終行は" & myLastRow & Chr(13) & _
      "最終列は" & myLastCol

End Sub