セルの移動、貼り付けの繰り返し

お世話になります。 Excel2003を使用しています。 A列からC列まで各行に必ずデーターが入っており、日付の入った各行の下に3行挿入した後、B1の値をA2へ、C1の値をA3へそれぞれ切り取って貼り付け、その下の行は空白にしたく、今現在手作業で行っています。VBAで一括で処理したく、データーがある限り同じように繰り返したいのですがやりかたがわかりません。初心者なので自分で考えたコードも記述していなく、丸投げですみませんが、どなたかご教授していただけませんか？よろしくお願いします。 　　A 　　　 B 　　　　C 　 1　3月1日　大阪　　日帰り 2　3月2日　東京　　出張　　 3　3月3日　名古屋　日帰り　 4　・・　　・・　　・・　 下図のようにしたいのですが。 　　 A 　　　B 　　　　C 　 1　3月1日　 2　大阪 3　日帰り 4　空白 5　3月2日 6　東京 7　出張 8　空白 9　・・