エクセルマクロ、空白行（セル）の挿入

質問

データがA、B、C、D、E列100行まであります。
このうちD、E列を除き、エクセルのマクロで1行ごとに空白で10行挿入したいです。
（A、B、C、D列のデータに空白セルを10行分挿入し、下にシフトするイメージ。D、E列はそのまま。）
ご教授頂きたく、お願いします。

回答No.2

tom04

こんばんは！
横からお邪魔します。

Sub test()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 4 Step -1
Range(Cells(i, 1), Cells(i + 9, 3)).Insert (xlDown)
Next i
End Sub

こんな感じですかね？m(__)m

お礼

ご回答ありがとうございます。バッチリできました。
いろんな方法があるんですね。
web2525さんの回答でも　"Do Until Selection.Row = 1"の"1"を"4"に変えて試してみたら思った通りにできました。
お二人ともどうもありがとうございました。

回答No.1

web2525

Range("A65535").End(xlUp).Select
Selection.Resize(10, 3).Select
Do Until Selection.Row = 1
Selection.Insert Shift:=xlDown
Selection.Offset(-1, 0).Select
Loop

こう言うことなのかな？

お礼

早速のご回答ありがとうございます。試してみたらできました。
最初に説明不足でしたが、実は見出し行が１から３行目まであり、４行目から空白行（セル）を挿入したいのですが、その場合どうしたらよいのでしょうか？