Creating Multiple Tables Using Loop in VBA. I still want to add new sheets and add

[p45cal]

The last snippet I gave adds a table after the last sub category on every category (LOB) sheet.
To get one table after the last sub category on only the last category sheet, put your code just before End Sub, say in the vicinity of:

NewSht.Cells(Rows.Count, "B").End(xlUp).Offset(2)