Sub insert10rows()'change 3 to your rows.
I don't help in creating "merged cells"

For i = 3 To 2 Step -1
Cells(i, "a").Resize(2, 1).EntireRow.Insert
Next i
End Sub

--
Don Guillett
SalesAid Software

"From Mike G." wrote in message
...
Experts & Gurus:

I need a macro to add new rows and merge cells. For
example, I need to add 2 rows under each existing row and
then merge the contents in columns A, B, C, and D.

Existing spreadsheet:
A B C D E
1 aa ss dd ff
2 qq ww ee rr
3 cc vv bb nn

Desired speadsheet:
A B C D E
1 +
2 aa ss dd ff -
3 /
4 +
5 qq ww ee rr -
6 /
7 +
8 cc vv bb nn -
9 /

Then, I need to add the same information repeatatively in
column E.

Your help is appreciated!
Best regards, Mike