clearcontents for some columns of a row

[Scott]

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

 

[Tom Ogilvy]

try this:

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(-2, 0).Select
Selection.Cells(1, 4).Resize(1, 27).ClearContents
End Sub

 

[Scott]

That did not clear the cells.

try this:

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(-2, 0).Select
Selection.Cells(1, 4).Resize(1, 27).ClearContents
End Sub

 

[Tom Ogilvy]

In contrast, it did for me. so apparently we have a different
interpretation of what InputCI actually is.