Inserting Row to Table Using VBA

[Sara79]

I have a code that inserts an entire new row and copies the contents from above row. I was hoping to edit the code to insert a row and have it be apart of a table, not just a new row under the table. Any suggestions on how to do this?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Me.Unprotect
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
Me.Protect
End Sub

 

[Anthony47]

In other words you would like adding one row to a Table by double-clicking in its area...
Try this code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cTbl As ListObject
Me.Unprotect
Set cTbl = Target.ListObject
If Not cTbl Is Nothing Then
    cTbl.ListRows.Add , True
    Cancel = True
End If
Me.Protect
End Sub

Bye