Sub 二行目_タイトル行を除く_から最終行までコピーして別の場所へ貼り付ける()
'最終行を取得する
最終行 = Cells(Rows.Count, "A").End(xlUp).Row '=6
'A列2行目からB列最終行までコピーする
Range("A2:B" & 最終行).Copy
'Range("A2:B6" ).Copy と同じこと
'D列2行目からE列最終行に全貼り付けする
Range("D2:E" & 最終行).PasteSpecial
'Range("D2:E6" ).PasteSpecial と同じこと
End Sub