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

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

--
Regards,
Tom Ogilvy


"Scott" wrote:

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

That did not clear the cells.

"Tom Ogilvy" wrote:

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

--
Regards,
Tom Ogilvy


"Scott" wrote:

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

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

--
Regards,
Tom Ogilvy


"Scott" wrote:

That did not clear the cells.

"Tom Ogilvy" wrote:

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

--
Regards,
Tom Ogilvy


"Scott" wrote:

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