Excel VBA macro to add a new row every 20th row from A2 not A1

[Iheartexcl]

have a code that misses row A1 and then adds 20 rows after this. I need the code to add 20 rows after A2

Sub AddRows()
ScreenUpdating = False
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

End With
Dim AddRows As Integer: AddRows = 20
Dim i As Integer: i = lastRow
Do While i <> 1
Rows(i & ":" & i + AddRows - 1).Insert
i = i - 1
Loop
ScreenUpdating = True
End Sub

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: I need a macro that starts at A2 and for every 20 rows, select columns D-W
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[kevin9999]

Change

Do While i <> 1

To

Do While i <> 2