First, sorry about the double post, but realized I posted my question to the
wrong forum.

Can anyone tell me why this code not only pastes the Formulas (which I want)
but also the values in the cells?

Sub test()

   Dim cellActive As Range
   Set cellActive = ActiveCell

   Dim rgNewRow As Range
   ActiveCell.EntireRow.Insert Shift:=xlDown
   Set rgNewRow = Rows(cellActive.Row - 1)

   cellActive.EntireRow.Copy

   rgNewRow.PasteSpecial (xlPasteFormulas)

End Sub