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.

Please Login or Register  to view this content.

1. Don't select things:
thing.select
selection.change
is equivalent to
thing.change
2. Turn calculation and screenupdating off
3. Post something a bit more comprehensive 'cos it's very difficult to help without context

CC

I tried doing what you suggested. I combined all of the 3 lines in the for loop into the following line. It still takes the same amount of time, and even about a minute longer...

Please Login or Register  to view this content.

On a like-for-like comparison, not selecting will save time. Let us assume some other factor has caused the increase you refer to.

Post an example for help with the second two things.