Code help: Insert Row / Copy and Clear contents

[dellmech]

I have a pretty neat code I use to insert a row and it copies the formulas from the row below and pastes them into the new inserted row. It then clears contents of the new row. However, IF there are no contents in that row it copied, I get an error that says "No cells were found". Is there a way to modify the code below to not get this error message when the row it copies doesn't have contents? (the reason I have this code is in order to copy formulas into the new row)

Sub AddNewRow()
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert
Application.CutCopyMode = False
ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
End Sub

 

[rlv01]

Sub AddNewRow()     
    ActiveCell.EntireRow.Insert Shift:=xlDown    
    With ActiveCell
        .Offset(1).EntireRow.Copy .EntireRow
        On Error Resume Next
        .EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
        On Error GoTo 0
    End With
End Sub

 

[dellmech]

Thanks but that didn't seem to work exactly right. It didn't copy anything over. I added "On Error Resume Next" to the top of my code and it seemed to resolve the issue.

 

[rlv01]

When I first posted my answer, I inadvertently forgot this line

[COLOR=#333333].Offset(1).EntireRow.Copy .EntireRow[/COLOR]

Which performs the copy. But no matter. Glad you got your problem sorted out.