ExcelBanter - View Single Post - VBA - Insert row, copy contents of original row except for contents of columns A-N

Royzer

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