mehrere Word-Tabellen befüllen

Hallo,

ich habe gerade einen Knoten im Hirn und vielleicht könnt Ihr mir da weiterhelfen:

Ich habe 1 - n Word-Tabellen und diese sollen mit unterschiedlichen Werten befüllt werden. Die Befüllung erfolgt anhand der Auswahl in einer ListBox. Die gewählten Einträge aus der ListBox entsprechen den Zeilen + 1 aus arrTempCB1
Die Anzahl der Wordtabellen wird über AnzTb ermittelt.

Wie müßte der Code aussehen, dass jede Tabelle mit seinen eigenen Werten befüllt werden?
Wo bzw. wie müsste das

For AnzTb = 1 To wrdApp.ActiveDocument.Tables.Count

AnzTb = wrdApp.ActiveDocument.Tables.Count

    For i = 0 To UserForm1.ListBox1.ListCount - 1
            If UserForm1.ListBox1.Selected(i) = True Then
                With wrdApp.ActiveDocument.Tables(AnzTb)
                    .Cell(1, 1).Range.Text = arrTempCB1(i + 1, 1)
                    .Cell(1, 2).Range.Text = arrTempCB1(i + 1, 3)
                    .Cell(1, 3).Range.Text = arrTempCB1(i + 1, 2)
                    .Cell(2, 2).Range.Text = arrTempCB1(i + 1, 4)
                    .Cell(4, 2).Range.Text = "Bild"                        'Werte in Spalte 10 aus Daten.xlsx
                    .Cell(6, 3).Range.Text = arrTempCB1(i + 1, 5)
                    .Cell(7, 3).Range.Text = arrTempCB1(i + 1, 6)
                    .Cell(8, 3).Range.Text = arrTempCB1(i + 1, 7)
                    .Cell(9, 3).Range.Text = arrTempCB1(i + 1, 8)
                    .Cell(10, 3).Range.Text = arrTempCB1(i + 1, 9)
                 End With
            End If
    Next