Autofill columns with formula when inserting new rows

It is already in a table. When inserting a new row, at the moment, only the formula within the project owner column is copied down automatically. The other two are not. I'm not sure why this is.

You could always try the below, just change the 2 for the column with the primary field and the B for the column the formula is in

Please Login or Register  to view this content.

Ok so I have used the code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End Sub


This works exactly how I want it to, but is there a way I can apply it to only a specific set of columns? There are certain columns that if double clicked will disrupt the formatting of the table.

*Solved*

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True

If Target.Column > 6 Then
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End If

End Sub