エクセルにてデーターセルに任意の空白行を素早く挿入するには？

質問

例として下記のような生産進行表があり、

　　　Ａ　　　　　Ｂ　　　　Ｃ　　　　　Ｄ　　　　　Ｆ　　　　Ｇ
１　車種　　　台数　パーツ１　パーツ２　パーツ３　パーツ４
２　ムーヴ　　１００　　　○　　　　○　　　　○　　　　○
３　タント　　１５０　　　　○　　　　○　　　　○　　　　○
４　ミ　ラ　　　５０　　　　○　　　　○　　　　○　　　　○
５　ライフ　　２００　　　　○　　　　○　　　　○　　　　○
↓　アルト　　１５０　　　○　　　　○　　　　○　　　　○
のような形で構成されており、車種に対応したパーツ１～４はVLOOKUP関数で取得できるのですが、各車種（ムーヴ～アルト）データーセルの行間に備考記入用の空白行を（４～６行）追加する必要が出てきました。上記表を下記のような形に早く行うにはどうすればよいでしょうか?
　車種データーは２００～３００位あります。1行づっ行挿入は時間が掛かり、また、事前に空白行を設けて、別紙にVLOOUP関数の検索値として=シート１！$A$2(ムーヴ）=シート！$A$3(タント）のような参照を取るのも時間が掛かります。どうすれば、下記の様な形に一括して早く簡単に出来る方法があれば、教えていただけないでしょうか?VBAなのでしょうか？関数なのでしょうか?

１　車種　　　台数　　　パーツ１　パーツ２　パーツ３　パーツ４

　　空白行４挿入

２　ムーヴ　　１００　　　○　　　　○　　　　○　　　　○

　　空白行４挿入

３　タント　　１５０　　　○　　　　○　　　　○　　　　○

　　空白行４挿入

４　ミ　ラ　　　５０　　　○　　　　○　　　　○　　　　○

　　空白行４挿入　

５　ライフ　　２００　　　○　　　　○　　　　○　　　　○

　　空白行４挿入

↓　アルト　　１５０　　　○　　　　○　　　　○　　　　○

回答No.1

mshr1962

空いてる列に、1行目の項目に1と入力して
Ctrlを押しながらフィルコピーで連番を作成する。
2から最後の行までをコピーして4回貼り付けてその列で並べ替えする。
最後に今の列を削除で完成

これ以外だとマクロですね。
最後の行から4行ずつ増やすようにLOOPを作成すれば出来ます。

お礼

回答有難うございます。よく分からないですが、回答を参考にこれからトライしてみます。有難うございました。