如何根据我的需要使用VBA创建Excel空白行

Question

我是excel VBA的新手。如何在Excel的不同单元格中插入不同数量的空白行？该代码每次插入一个空白行。

'Step1:  Declare your variables.
    Dim MyRange As Range
    Dim iCounter As Long
'Step 2:  Define the target Range.
    Set MyRange = Range("A2:C8")
'Step 3:  Start reverse looping through the range.
    For iCounter = MyRange.Rows.Count To 2 Step -1

'Step 4: Insert two blank rows.
    MyRange.Rows(iCounter).EntireRow.Insert

'Step 5: Increment the counter down
    Next iCounter
End Sub

但是我想要类似的东西 在A4行之后，我要3个空白行。 在A7行之后，我想要1个空白行。 A9行之后，我不要空白行。 在A10行之后，我要100个空白行。

应由B列确定多少行为空白。

预先感谢