Sub addNewRow()

    Dim ws As Worksheet

       ' Set your worksheet name

    Set ws = ThisWorkbook.Sheets("Invoice")

    ' Set your table name (change "Table1" to your actual table name)

    

    ws.ListObjects("InvItems").ListRows.Add

End Sub

I am getting Unknown function: ListObjects