Macro to Insert Rows

I have a spreadsheet with a P&L that is replicated c.140 times for different business units (in the same worksheet). I need to add 9 rows above the "sales" line in each P&L which took me about 4 hours manually because of processing time to shift all the formulas down. I need to do this process 4 more times and hope someone can give me a macro code that would allow me to say; if cell in column A = "Sales" insert 9 rows?

Thanks in advance (I know there are similar posts already but my macro language skills are fairly basic).

Simon

Simon,
With out testng on your data, try this one.

Please Login or Register  to view this content.

Simon,
With out testng on your data, try this one.

Please Login or Register  to view this content.

Thanks AB33, I am just testing, while it is thinking about it, will this only run the macro in the active worksheet,.. or try to run it in all worksheets within the workbook? If the latter i need to stop it now as it will probably crash the machine! lol

Thanks again for such a speedy response by the way.

Active only

Ignore my last post, the macro worked perfectly.
THANKS ever so much, you just saved me at least a days work!

Simon,
You are welcome! Please close this thread.
On the top right hand side of this page, there is a button called thread tools, from the option, choose, close this thread