Was ich in solchen Fällen immer mache: Ich starte Excel, zeige mir die die "Entwicklertools" an und starte eine Macro- Aufzeichnung.
Dann mache ich manuell das, was nachher mein Script tun soll und schaue mir den generierten Code an.
Da komme ich dann auf folgenden Code:
xlSheet_ITR3.ListObjects.Add(1, xlApp.Range("A2").Resize(x_e+1,UBound(ITR_e,2)+1), , 1)
xlSheet_ITR3.ListObjects(xlSheet_ITR3.ListObjects.Count).Name = "Neuer Name"
Ob das in Deinem Kontext funktioniert, kann ich Dir aber nicht sagen.