エクセルで行挿入＆コピー

質問

エクセルにて下記のように入力してあります。

A 　　　 B 　　　C 　　　 D
111 　　111
222 　　111

次にＣ列の一行目にＭ001、Ｄ列の一行目にA00１を入力した後（セルは２行目）に任意の行数を挿入し、さらにＡ，Ｂ列は一行目をコピー、Ｃ，Ｄ列は連番になるようにＶＢで作成するにはどうしたらいいでしょうか。
よろしくお願い致します。

回答No.2

matsu_jun

ひょっとしてこういうことでしょうか？
とりあえず下のマクロを実行してみてください。

'ここから--------------------------------------------------------------------------
Sub 挿入処理()
　　Dim 挿入行数 As Long

'必要に応じてこの下の行を編集します------------------------------

　　挿入行数 = 0

　　'挿入したい行数を上の行の「0」の代わりに代入します。
　　'0のままだと、実行時に何行挿入するかを尋ねます。
'ここまで編集できます--------------------------------------------

　　Do While 挿入行数 = 0
　　　　Tmp = InputBox("挿入する行数を指定してください", "挿入行数", "1")
　　　　If Tmp = Empty Then Exit Sub
　　　　If IsNumeric(Tmp) Then 挿入行数 = CInt(Tmp)
　　Loop
　　Rows("2:" & CStr(1 + 挿入行数)).Insert Shift:=xlDown
　　Range("A1:B1").AutoFill Destination:=Range("A1:B" & CStr(挿入行数 + 1)), Type:=xlFillCopy
　　Range("C1:D1").AutoFill Destination:=Range("C1:D" & CStr(挿入行数 + 1)), Type:=xlFillDefault
End Sub
'ここまで--------------------------------------------------------------------------

上の貼り付け方が分からない場合は、以下ご覧下さい。

1) ツール(T)－マクロ(M)－新しいマクロの記録(R)を開く
2) 「マクロの記録」ウィンドウが表示されたら、何も変更せずにOKをクリック
3) 画面上に二つのボタンが表示されたツールバーが現れたら、左側の「■」をクリックして記録終了
4) Altキーを押しながらF8キーを押して、マクロウィンドウを開く
5) マクロウィンドウから、編集(E)ボタンをクリック
6) 現れた「Microsoft Visual Basic」の右側に
Sub Macro1()
'
'
'
End Sub
と書いてある部分を削除して、上の「ここから」から「ここまで」を貼り付ける。
7) もう一度Altキー＋F8キーでマクロウィンドウを開き、実行(R)ボタンをクリック

補足

文章があいまいですみません。
結果から書くと

Ａ　　　　 Ｂ　 　 　 Ｃ　　　 Ｄ
１１１　　１１１　Ｍ００１ Ａ００１
１１１　　１１１　Ｍ００２ Ａ００２
１１１　　１１１　Ｍ００３ Ａ００３
２２２　　１１１
３３３　　１１１

Ｃ、Ｄ列の一行目を入れた後に行数（任意）を入力するＩＮＰＵＴ　ＢＯＸを表示させる。同時に上記のようにコピーする。後はＣ、Ｄ列の４行目を入力後繰り返す。
マクロの起動時はＣ、Ｄ列を入力した後です。
よろしくお願いします。