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

質問

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

A 　　　 B 　　　C 　　　 D
111 　　111
222 　　111

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

回答No.4

matsu_jun · ベストアンサー

A～F列を直上の値のコピー、G、H列を連番にすると以下のようになります。
貼り直してください。
なお、挿入したくない場合は、InputBoxが表示された時点でキャンセルをクリックするか
キーボードのEscキーを押していただければキャンセルします。

なお、私No3の回答で少しミスをしてしまってます。No3の回答では、InputBoxでキャンセルをクリックすると次回より働かなくなってしまいます。下のソースはその点修正済みです。

Private Sub Worksheet_Change(ByVal Target As Range)
　　On Error GoTo ERREND
　　If Target.Column <> 7 And Target.Column <> 8 Then Exit Sub
　　If Cells(Target.Row, 7).Value = Empty Or Cells(Target.Row, 8).Value = Empty Then Exit Sub
　　Application.EnableEvents = False
　　Application.ScreenUpdating = False
　　Dim 挿入行数 As Long

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

　　挿入行数 = 0

'ここまで編集できます--------------------------------------------

　　Do While 挿入行数 = 0
　　　　Tmp = InputBox("挿入する行数を指定してください", "挿入行数", "1")
　　　　If Tmp = Empty Then GoTo ERREND
　　　　If IsNumeric(Tmp) Then 挿入行数 = CInt(Tmp)
　　Loop
　　Rows(CStr(Target.Row + 1) & ":" & CStr(Target.Row + 挿入行数)).Insert _
　　Shift:=xlDown
　　Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).AutoFill _
　　Destination:=Range(Cells(Target.Row, 1), Cells(Target.Row + 挿入行数, 6)), _
　　Type:=xlFillCopy
　　Range(Cells(Target.Row, 7), Cells(Target.Row, 8)).AutoFill _
　　Destination:=Range(Cells(Target.Row, 7), Cells(Target.Row + 挿入行数, 8)), _
　　Type:=xlFillDefault
　　Cells(Target.Row + 挿入行数 + 1, 7).Select

ERREND:
　　Application.ScreenUpdating = True
　　Application.EnableEvents = True
End Sub

補足

ありがとうございます。
少しためしてみましたが、Ｇ列を入力した時にINPUT BOXを
表示し、Ｇ列の値がＳだった場合は何もしないようにするにはどうすればいいでしょうか。

何回もお手数をおかけします。