エクセルマクロ 表のタイトルを削除するには？

質問

A 　　　B　　　　　　　Ｃ　　　　　　　Ｄ
１ 　氏名　　　スコア　　　　　氏名　　　　スコア
２　　山田さん　　１００　　　　三谷さん　　　９５
３　加藤さん　　　５０　　　　　後藤さん　　１００　　
４　佐々木さん　　２５　　　　　鈴木さん　　　４９　

このようなデータがあり、これを

　 A 　　　B　　　　　　　Ｃ　　　　　　　Ｄ
１ 　氏名　　　スコア　　　　　氏名　　　　スコア
２　　山田さん　　１００　　　　三谷さん　　　９５
３　加藤さん　　　５０　　　　　後藤さん　　１００　　
４　佐々木さん　　２５　　　　　鈴木さん　　　４９
　　　　　　　　　　　　　　　　　　　山田さん　　１００　　　　
　　　　　　　　　　　　　　　　　　　加藤さん　　　５０　　　　　
　　　　　　　　　　　　　　　　　　　佐々木さん　　２５

のように、隣の表のしたに付け足したいです。その時、「氏名、スコア」のタイトルの行を削除したいです。
どのような手順が一番シンプルなマクロとして記述できるでしょうか。
なお、下に付け足した元の表はそのまま残しておきたいです。

よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

必要な範囲だけをコピーして、目的のセルに貼り付けるだけです。

sub macro1()
　range("A2:B" & range("A65536").end(xlup).row).copy _
　　destination:=range("C65536").end(xlup).offset(1)
end sub

お礼

ありがとうございます。