Good evening Excelmam

Good news and bad news. The good news is, inserting two blank lines
after each line is pretty easy. The formula bit isn't. The code below
will take a block of data 150 lines long and add two blank rows after
each line, making it 450 lines long. You haven't given much info here,
so I don't know how many lines you are trying to work on:

Sub Test()
For f = 1 To 150 Step 2
Rows(f).Select
Selection.Insert Shift:=xlDown
f = f + 1
Rows(f).Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Next f
End Sub

The code is a little bit messy I know, but for a one off job it will do
the trick. I'll have to think a bit harder about the formulae bit, but
you'll need to supply more information, like what the formulae are
going to be, how many, etc...?

HTH

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=377562