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