Sub InsertNewRow()
ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row + 1).Copy
Cells(ActiveCell.Row, 1).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub


--
__________________________________
HTH

Bob

"camlad" wrote in message
...
Catastrophe! I did not keep a copy of a macro which inserted a row above
and
copied everything from the row below into the new row except any contents
and
fill color. The formula in some of the cells was copied but none of the
contents so the new row was ready for entries

One of you helped with this several years ago and it has been very
useful -
please help again.