After you have inserted you 9 blank rows, then

Dim rng as Range, ar as Range
set rng = columns(1).SpecialCells(xlblanks)
for each ar in rng.Areas
' now ar should hold a reference to a set of 9 blank cells in column A
' you can use that to do your fill. It will then loop to the next set
of
' 9 blank cells
Next ar

--
Regards,
Tom Ogilvy


wrote in message
oups.com...
I have about 5000 rows of data
I must insert nine blank rows between each two rows
this is the easy part till now....
then i want to fill these nine blank rows with series (linear-trend)

the problem that I want to fill each nine blank rows
seprately...because when i fill all the blank rows... they change the
values in the original rows !!!

so plz i want a macro to fill nine blanks rows then the next nine
blanks rows ! and so on ..