Thanks Per Jessen. The code worked perfectly and is very clean.

"Per Jessen" wrote:

Hello

Using FillDown, this should do it:

LastRow = ActiveCell.Offset(0, -1).End(xlDown).Row
Col = ActiveCell.Column
FormulaRow = ActiveCell.Row
Range(Cells(FormulaRow, Col), Cells(LastRow, Col)).FillDown

Regards,
Per

"Peruanos72" skrev i meddelelsen
...
Hello,

i have the following code and it works, however it does not filldown the
formula.
It fillsdown the result of the formula only. I need it to filldown the
formula from the
original activecell.

thanks in advance for any help.

Set c = ActiveCell
mc = Application.Count(Range(c.Offset(0, -1), c.Offset(0,
-1).End(xlDown)))
MsgBox mc
c.Offset(0, 0).Resize(mc) = c.Offset(0)