Improve response time for inserting rows in several hundred sections

I have a spreadsheet with some code that inserts up to 10 rows at a time into 213 different ranges over about 12 different sheets. It is taking a long time to do it. It takes about 10 minutes to run the code. Is there a way to improve this code so that it only takes a few minutes?
In the following code, iInsMax is equal to 213.

For iIndex = 1 To iInsMax
        Application.GoTo Reference:="InsPr" & Format(iIndex, "000")
        Rows(ActiveCell.Row & ":" & (ActiveCell.Row + iRowLines - 1)).Select
        Selection.EntireRow.Insert Shift:=xlDown
Next iIndex