Try this.

Sub insertrowsd()
dim i as long
For i = Cells(Rows.Count, "b").End(xlUp).Row To 3 Step -2
Rows(i).insert
With Cells(i, "c")
.FormulaR1C1 = "=r[-1]c/r2c2"
.NumberFormat = "0.00%"
End With
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Christian Falde" <Christian wrote in
message ...
Hi,

Here the situation. I am trying to write a macro that will create a row of
percentage under the row of values. Then drop two rows, to the next blank
and repeat until there are no more rows. I have to do this to about 2000
pieces of data and would really rather not do it by hand.

here's what i have.

Application.ScreenUpdating = False

Range("B3").Select
Do
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, 0))
Dim i As Integer
Dim j As Integer
For i = 3 To 401 Step 2
Range("c" & i).Select
' For j = 2 To 400 Step 2
Do
ActiveCell.FormulaR1C1 = "=r[-1]c/r2c2" : would like j to
replace 2 and actually work:
Selection.Style = "Percent"
Selection.NumberFormat = "0.00%"
ActiveCell.Offset(0, 1).Select
Loop Until IsEmpty(ActiveCell.Offset(-1, 0))

'Next j
Next i


End Sub

any advice would be appreaciated. I am new at programing in VBA so, be
gentle.

thanks,
christian