Как создать пустые строки Excel, используя VBA, как я хочу

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.

Заранее спасибо