I have the following which will insert a copy of a row. I want to clear
columns D through AD of the inserted row and leave the other columns intact
(they have some formulas). The last statement below seems to do nothing.
InputCI is a defined row name.

Sub InsertARow(InputCI)
Range(InputCI).Offset(-2, 0).Select
Selection.Copy
Range(InputCI).Offset(-1, 0).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range(InputCI).Offset(-1, 0).Select
Selection.ClearContents
End Sub