Auto inserting empty rows into a populated sheet

This little routine will add the rows on the activesheet. Add it to your existing macro or call it separately:

Option Explicit

Sub AddEmptyRowsInData()
Dim Rws As Long, FR As Long, LR As Long, Rw As Long

Rws = Application.InputBox("Insert how many rows between each row of data?", "How many empty rows?", 10, Type:=1)
If Rws = 0 Then Exit Sub

FR = Application.InputBox("The first row of data is row:", "First row?", 2, Type:=1) + 1
LR = Range("A" & Rows.Count).End(xlUp).Row

For Rw = LR To FR Step -1
    Rows(Rw).Resize(Rws).Insert xlShiftDown
Next Rw

End Sub

Try this code

Option Explicit

Sub insert_blanks()
Dim lrow As Long
Dim i As Long

With Worksheets(1)
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To lrow * 10
        .Rows(i + 1 & ":" & i + 10).Insert shift:=xlDown
        lrow = lrow + 10
        i = i + 10
    Next i
End With

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button.

Edit: Oops, i didnt refresh my page before posting my solution. Nevertheless, you can try both.

If that takes care of your need, please select Thread Tools from menu above and set this topic to SOLVED.