Sub FillFormulas()
Dim rng As Range
Set rng = Range("B7", _
Cells(7, "B").End(xldown))
rng.Offset(0, 1).Resize(, 33).FillDown
End Sub

--
Regards,
Tom Ogilvy

"SYBS" wrote:

I am trying to copy one row with formula in it(C7:AI7), to the rows below it,
the number of rows to be copied down the sheet depends on the number of
filled cells in col B (max B7:B67). I.e. If there are four filled cells in
col B (7-11) then I want the range C7:AI7 to be copied down to match. Now
desperate. Anyone help please ?

Thanks in hope

Sybs