macro til at indsætte samme tabel i Word i VBA

Hej eksperter

Jeg har følgende macro, der kan indsætte en tabel med bestemte ord i kolonne 1 og bestemt antal kolloner og rækker. Det virker også fint med den første tabel. Herefter indsætter den en tabel uden tekst og kanter. Det er højest sandsynligt pga. at koden er kun til den første tabel i word jf "Tables(1)".

Hvordan kan jeg ændre koden, så den indsætter alle oplysninger i en tabel hver gang, og ikke kun referer til den første tabel i Word dokumentet. Til info vil der også være andre tabller, som ser anderledens ud i worddokumentet.


Koden ser sådan ud:

Sub InsertTeroiModul()

'Denne virker ved førstetabel

Dim wdApp As Word.Application
Set wdApp = GetObject(, "Word.Application")

Dim rng As Word.Range
Set rng = wdApp.Selection.Range


ActiveDocument.Tables.Add Range:=rng, Numrows:=8, NumColumns:=2
  ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "Teori"
  ActiveDocument.Tables(1).Cell(2, 1).Range.Text = "Hvem"
  ActiveDocument.Tables(1).Cell(3, 1).Range.Text = "Hvorn?r"
  ActiveDocument.Tables(1).Cell(4, 1).Range.Text = "Begreber"
  ActiveDocument.Tables(1).Cell(5, 1).Range.Text = "Keywords"
  ActiveDocument.Tables(1).Cell(6, 1).Range.Text = "Retning"
  ActiveDocument.Tables(1).Cell(7, 1).Range.Text = "Kritik"
  ActiveDocument.Tables(1).Cell(8, 1).Range.Text = "Opgave"
   
   
   
    With ActiveDocument.Tables(1)
        .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
        .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
        .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
        .Borders(wdBorderRight).LineStyle = wdLineStyleSingle
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle
        .Borders(wdBorderVertical).LineStyle = wdLineStyleSingle
    End With



      For Each Table In ActiveDocument.Tables
    On Error Resume Next
    Table.Columns(1).Width = 60
    Table.Columns(2).Width = 400
    On Error GoTo 0
  Next

End Sub