Dim rng as Range
ActiveCell.EntireRow.FillDown
On error resume Next
set rng = ActiveCell.EntireRow.SpecialCells(xlConstants)
On Error goto 0
if not rng is nothing then
rng.ClearContents
End if

--
Regards,
Tom Ogilvy


"antonov" wrote in message
...
Hello everybody:
is it possible to have a macro or whatever to "replicate" the formulas in
the next row so that I have the formulas only in the cells I am actually
going to use and not on all the empty rows?