最終行と最終列の取得

'最終行列の取得（入力値のみ、書式有り空白セル含まず）
Dim MaxRow, MaxCol As Long
With ActiveSheet.UsedRange
MaxRow = .Find("*", , , , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , , , 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
として、以下のように直接シートを指定した方が、よりスムーズ！

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

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

'特定列（5列目）の最終行を取得
Dim MaxRow As Long
MaxRow = Cells(Rows.Count, 5).End(xlUp).Row

'【文字】セル内に収める　オートフィット（縮小して全体を表示する）
Cells(8, 1).ShrinkToFit = True

'【列】選択セルの列を選択する
Cells(3, 3).EntireColumn.Select

'【列】列を選択する
Columns(2).Select
Columns("EU:EX").Select

'【列】複数列を選択する
Range(Cells(1, 1), Cells(3, 3)).EntireColumn.Select