Dean,

With Worksheets(1)
.Rows(cRow + 1).Insert xlShiftDown
.Rows(cRow).Copy
.Rows(cRow + 1).PasteSpecial Paste:=xlFormulas
.Rows(cRow + 1).PasteSpecial Paste:=xlFormats
End With

hth,

Doug Glancy

"Dean Goodmen" wrote in message
...
I have having trouble with the following lines....

Here is what I want it to do : Copy the Row contained in value cRow,
and insert a copy of it just below that row. (Only the Formaulas AND
Borders, not the vlaues of the cells.)

With Worksheets(1)
.Rows(cRow + 1).Insert xlShiftDown
.Rows(cRow).Copy
.Rows(cRow + 1).PasteSpeciaxlPasteFormulasAndNumberFormats
End With