途中に空白行があっても、最終行を選択する。取得する。最終行列の取得（入力値のみ、書式有り空白セル含まず）最終行列の取得（入力値有無関係なく、書式有り空白セル含む）

途中に空白行があっても、最終行を選択する。
Dim maxrow
With ActiveSheet.UsedRange
maxrow = .Rows(.Rows.Count).Select
End With

----- べんりあつめ。-----

途中に空白行があっても、最終行を取得する。
Dim maxrow
With ActiveSheet.UsedRange
maxrow = .Rows(.Rows.Count).Row
End With

'最終行列の取得（入力値のみ、書式有り空白セル含まず）
Dim MaxRow, MaxCol As Long
With ActiveSheet.UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With

'最終行列の取得（入力値有無関係なく、書式有り空白セル含む）
Dim MaxRow, MaxCol As Long
With ActiveSheet.UsedRange
MaxRow = .Rows(.Rows.Count).Row
MaxCol = .Columns(.Columns.Count).Column
End With

上記は、アクティブシートにしているときなので、よりスムーズにしたい場合は、
With ActiveSheet.UsedRange
の ActiveSheet を、
With Worksheets(2).UsedRange
として、直接シートを指定した方が、よりスムーズ！