Excel VBA 最終行まで範囲選択 / 最終行・最終列まで範囲選択

A2のセルから最終行まで範囲選択

Range(Range("A2"), Cells(Rows.Count, 1).End(xlUp)).Select

A列の最終行までB2～B列を選択する

Range("B2:B" & Range("A" & Cells.Rows.Count).End(xlUp).Row).Select

A2からF列の最終行まで範囲選択

Range("A2:F" & Cells(Rows.Count, "F").End(xlUp).Row).Select

Sheet1の選択した範囲の値をSeet2のA2に貼り付け

Sub 範囲コピー()

Worksheets("Sheet1").Select

Worksheets("Sheet1").Range("A2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
Worksheets("Sheet2").Range("B2").PasteSpecial Paste:=xlPasteValues
End Sub