埋められた行の間にn個の空白行を挿入するマクロを書くにはどうすればよいですか？ （nは2以上）

Question

（a）なぜコードを1行に挿入するのではなく、埋められた行の間に3行挿入するのですか？ （b）コードを修正して1行だけ挿入する方法、または充填行の5行を挿入する方法はありますか？

コードを実行する前。緑色の輪郭は、選択した範囲のすべてのセルを反復しているため、コード

コード

Public Sub Insertrows() 

Dim MyRange As Range 
Dim MyCell As Range 

Set MyRange = Selection 

For Each MyCell In MyRange 
    If Not IsEmpty(MyCell) Then 
     MyCell.Offset(1, 0).EntireRow.Insert 
    End If 
Next MyCell 

End Sub 

Answer 1

を実行した後

私の選択を示し、 A1、A2、...、A10、B1、B2、... B10の順にクリックします複数回任意の行の

使用

For Each MyCell In MyRange.Columns(1).Cells