VBA Command Button: Insert TABLE Row

[CokeOrCrack]

I am attempting to use a Command Button to insert a new TABLE row. The code I have successfully inserts an entire row instead of a TABLE row. The code I have is as follows:

Private Sub CommandButton1_Click()
Dim mySheets
Dim i As Long

mySheets = Array("General")

For i = LBound(mySheets) To UBound(mySheets)
With Sheets(mySheets(i))
.Range("B12").EntireRow.Insert Shift:=xlDown
.Range("B12:O12").Borders.Weight = xlThin
End With
Next i
End Sub
--------------------------------------------------------------------------------------------
Notes:
The sheet name is: General
The table name is: General
--------------------------------------------------------------------------------------------
Is there a way to code a VBA Command Button so it inserts only a TABLE row upon clicking instead of an entire sheet row?

I assume my error has something to do with Line 9 where it states ".EntireRow.Insert" but I don't know what I would edit it to.

Thanks

OJ

 

[igold]

Depending on where you want to insert the row, there are two examples: Inserting a row above row 3 and inserting a row at the bottom.

Private Sub CommandButton1_Click()


    Dim mySheets
    Dim i As Long


    mySheets = Array("General")
    For i = LBound(mySheets) To UBound(mySheets)
        With Sheets(mySheets(i))
            Dim tbl As ListObject: Set tbl = ActiveSheet.ListObjects("General")
            tbl.ListRows.Add (3)   'Add row above row 3
            tbl.ListRows.Add alwaysinsert:=True  'Add row to bottom of table
            .Range("B12:O12").Borders.Weight = xlThin
        End With
    Next i
    
End Sub

I hope this helps

 

[CokeOrCrack]

igold

Thanks for the assistance. I'll give it a try in a bit when I'm near my work and let you know how it goes.

OJ

 

[CokeOrCrack]

igold

Your code worked perfect. Thanks

OJ

 

[igold]

Great, you're welcome. Thanks for the feedback!