Add new last row to table

[HSOLDO]

Hi,

I have table ranging from A1 to J5.
A1 to J1 are headers.
A6 to J6 are totals.

I need a button that adds new last row to table. For example first I need to add row 6 and push totals to row 7 and so on.

Thank you

 

[kpasa]

This will do the trick.

Sub test()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Set ws = ActiveSheet
    Set tbl = ws.ListObjects("Table1")
    tbl.ListRows.Add
End Sub

ListRows.Add adds to the DataBodyRange section of the table, therefore pushing the tbl.TotalsRowRange down.