You cannot "carry down" formulas and not expect them to return a result,
no matter what XL version you use.
The following keeps cell formatting / conditional formatting intact...
'--
Rows(r + 1).Insert shift:=xlDown
Rows(r).Copy Rows(r + 1)
Rows(r + 1).ClearContents
--
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Tim Rush"
wrote in message
Thans Jim, unfortuantely, that duplicates the line. I want to insert a blank
line with all the formatting of the line above it. Carry down the
conditional formats and formuals.