How to insert More than one Row Automatically excel vba

on
Need to Insert Multiple numbers of rows after  Multiple rows or single row.

Code below will do the job for you.

 Just Change it according to your needs

See Example of Before and After

Example 1: Insert 2 row after after every 1 row
Before

After

 


Sub InsertRows()
    Dim i As Long,nRows As Integer, nEvery As Integer
    Application.ScreenUpdating = False
    '#of rows to insert
    nRows = 3 
    '# of rows to skip between insertions
    nEvery = 1
    i = nEvery + 1 'first row for insertion
    
    While Not IsEmpty(Cells(i, 1)) 
        Rows(i & ":" & i + nRows - 1).Insert
        i = i + nRows + nEvery
    Wend
    MsgBox ("Done")
End Sub