Here is a macro that will do what you want. Make sure to select th
first cell in the column containing your information before running th
macro. This macro assumes that all your data is in Column A. Jus
change the bolded letter in the code below to reflect which Colum
contains your data.


Public Sub AddItems()

Do While ActiveCell.Row <= Range("*A*65536").End(xlUp).Row

vrows = ActiveCell.Row + 1 & ":" & ActiveCell.Row + 3

Rows(vrows).Insert Shift:=xlDown

ActiveCell.Offset(1, 0).Value = "Actual"
ActiveCell.Offset(2, 0).Value = "Forecast"
ActiveCell.Offset(3, 0).Value = "Variance"
ActiveCell.Offset(4, 0).Select

Loop

End Sub







Rolli

--
Message posted from http://www.ExcelForum.com