マクロコードについて教えてください

Excelのリストで、2行ごとに空白の行を挿入したいのですが、
VBAで行うことは可能でしょうか？

挿入を始める行：8行目と9行目の間から挿入スタート
挿入したい行数：8行目以降2行ごとに空白3行を追加

一定の行ごとに空白行を挿入するコードは見つけたのですが、
挿入する行数が1行のみで、どの部分を編集すれば挿入する行数をカスタムできるのかわかりません。
上記で見つけたコードはこちらです。↓

Sub InsertColumn()


Dim i As Integer
Dim StartCol As Long
Dim MaxRow As Long
Dim InsertCol As Long

StartCol = InputBox("何行目から開始ですか？")
InsertCol = InputBox("何行ごとに空白行を挿入しますか？")

MaxRow = Cells(Rows.Count, 1).End(xlUp).Row


For i = 1 To MaxRow - 1 / InsertCol

Rows(StartCol).Insert

StartCol = StartCol + InsertCol + 1

Next i


End Sub

もしこちらを編集して、挿入行数を3行に変更できればその方法を教えていただきたいです。
必ずしもこのコードを使いたいわけではないので、
他に良い方法があればご教授いただけますと幸いです。

どうぞよろしくお願いいたします。

No.2 回答者： zongai 回答日時： 2021/08/10 18:30

行って「row」なのに、このマクロは終始「column」になってるのね。

とりあえずこれでどうでしょう。

Sub InsertRowumn()
　　Dim i As Integer, j As Long
　　Dim StartRow As Long
　　Dim MaxRow As Long
　　Dim InsertRow As Long
　　Dim gyou As Long

　　StartRow = InputBox("何行目から開始ですか？")
　　InsertRow = InputBox("何行ごとに空白行を挿入しますか？")
　　gyou = InputBox("何行ずつ挿入しますか？")

　　MaxRow = Cells(Rows.Count, 1).End(xlUp).Row

　　For i = 1 To MaxRow - 1 / InsertRow
　　　　For j = 1 To gyou
　　　　　　Rows(StartRow).Insert
　　　　Next
　　　　StartRow = StartRow + InsertRow + gyou
　　Next i
End Sub

この回答へのお礼

ありがとうございます！
解決しました。

お礼日時：2021/08/10 19:07

No.1 回答者： mygoonickname 回答日時： 2021/08/10 18:29

こんばんは。

For i 　と　Next iの間を、下記に変えては如何でしょうか？

Rows(StartCol).Insert
Rows(StartCol).Insert

StartCol = StartCol + InsertCol + 2

この回答へのお礼

ありがとうございます！解決しました。

お礼日時：2021/08/10 19:07