Hi. This code inserts a row and copies formulas (only) to the new row. The problem I have run into is that I didn't know our users were adding and subtracting within cells, which means their numbers are being duplicated on the new row when those new cells are supposed to be blank. I need to find a way to make cells on the new row blank from column A through column N.
Thanks!
Code:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
.Offset(1).EntireRow.Insert
.EntireRow.Copy .Offset(1).EntireRow(1)
With .Offset(1).EntireRow
.Cells(1).ClearContents
On Error Resume Next
.SpecialCells(2).ClearContents
On Error GoTo 0
End With
End With
End Sub