使用済みセルの最終行と最終列の取得にはWorksheetオブジェクトの値があるすべてのセルを範囲とする UsedRange プロパティを使用します。
Sub CellCnt()
Dim lngYCnt As Long
Dim intXCnt As Integer
lngYCnt = Worksheets("Sheet1").UsedRange.Rows.Count
intXCnt = Worksheets("Sheet1").UsedRange.Columns.Count
MsgBox "最終行は" & intYCnt & "行、" & _
"最終列は" & ingXCnt & "列です"
End Sub