エクセルのコピペを自動で行うVBAの書き方を教えてください。

質問

素人が勉強もせずに質問とは、怠けていると思われるかもしれませんが、よろしくお願いいたします。
以下のエクセルの表のように、省略されている部分のあるリストが5000件あった場合、繰り返しコピペするVBAの具体的な書き方を教えてください。リストは5行単位でCとDの内容が変化します。つまり、C1とD1をコピーし、C2からD5へペーストしたら、次はC6とD6をコピーし、C7からD10へ、ペーストするというのを繰り返します。
　　　A　　B　　C　　　D　　　　E　　　　　F
1　　001 　1　　2　　東京　　1,200円　　1,500円
2　　001 　1　　　 　　　 　　 1,200円　　1,500円

回答No.1

poosan2009 · ベストアンサー

以下のスクリプトでいけるのではないでしょうか？

' Withにより基点設定
With ActiveSheet.Range("B1")
' 行オフセット初期化
IdxY = 0
Do
' Cxセルにデータが無くなれば終了
If (.Offset(IdxY, 0) = "") Then Exit Do
' 現在のCx、Dxセルデータを保存
Data1 = .Offset(IdxY, 0)
Data2 = .Offset(IdxY, 1)
' 現在の行の１つ下の行から４行分に上で保存したデータを設定
For Idx = IdxY + 1 To IdxY + 4
.Offset(Idx, 0) = Data1
.Offset(Idx, 1) = Data2
Next Idx
' 次の基点にオフセットを移動
IdxY = IdxY + 5
Loop
End With

お礼

早速、丁寧に教えてくださりありがとうございました。このままコピペして実行してみましたが、構文エラーという表示がでて上手くいきませんでした。「' Withにより基点設定With ActiveSheet.Range("B1")」のB1がなぜB1なのかもわからず、どこを触ればこの回答を生かせるか・・・？なにぶん、したいことははっきりしているのですが、基礎も何もなくお手数をおかけして申し訳ございませんでした。