Try this idea. Put Actual in g11, Forecast in g12, and Variance in g13 of
another sheet and use

Sub insert()
x = Cells(Rows.Count, "a").End(xlUp).Row
For i = x To 1 Step -1
Sheets("sheet1").Range("g11:g13").Copy
Cells(i, "a").Offset(1).insert shift:=xlDown
Next
End Sub

--
Don Guillett
SalesAid Software

"sameer27p " wrote in message
...
I had another question.I have a column named ItemNos..this column
contains item numbers.Now,after every item number ,i need to insert
three rows containing the text value 'Actual','Forecast' AND 'Variance'
in the same column..this shud however go until the range of the item
nos..since sometimes the report spools 15 rows while at other times it
may spool 15000 rows...

Item Number
A
F
V
Item Number
A
F
V