Wstawianie pustych wierszy za pomocą makra

Obecnie próbuję opracować arkusz kalkulacyjny programu Excel, aby ułatwić formatowanie. Chciałbym utworzyć makro, aby wstawić puste wiersze w wielu miejscach bez wpływu na kolejne wiersze. Znam trochę kodowania. Mój kod psuedo wygląda następująco:

cell a1 = n
if(n>1, insert 'n' rows in row 10, insert '0' rows)
if(n>1, insert 'n' rows in row 20. insert '0' rows)
etc.

Może istnieć makro lub funkcja, która już istnieje, ale nie jestem pewien. Jeśli nie ma dostępnego makra, chciałbym wiedzieć, jak je utworzyć.

Dzięki

Coś takiego działałoby

Sub test()
Dim n As Integer
n = Cells(1, 1)
    If n >= 1 Then
        Rows("10:" & 10 + n).Insert shift:=xlDown
        Rows("20:" & 20 + n).Insert shift:=xlDown
    End If
End Sub

Możesz to zrobić w ten sposób -

Sub test()
Dim n As Integer
n = Cells(1, 1)
    If n >= 1 Then
        For i = 1 To n
        Rows(10).Insert shift:=xlDown
        Rows(20).Insert shift:=xlDown
        Next
    End If
End Sub