If there are no constants, SpecialCells will throw an error. One
modification:

Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Cancel = True 'Eliminate Edit status due to doubleclick
With Target.EntireRow
.Offset(1, 0).Insert
.Copy .Offset(1, 0).Cells
On Error Resume Next
.Offset(1, 0).SpecialCells(xlConstants).ClearContents
On Error GoTo 0
End With
End Sub




In article ,
jct wrote:

but am getting a debug message on the following line:
Target.Offset(1).EntireRow.SpecialCells(xlConstant s).ClearContents

I need clarification. Any help is appreciated.