Set oRange = WordAppl.ActiveDocument.Sections(1).Range
 
    WordAppl.Selection.MoveRight unit:=wdCell

    Dim tbl As Word.Table
    Dim wdDoc As Word.Document
    Dim WordAppl As Application
   '....
    Set wdDoc = WordAppl.Documents.Add("...")
    Set tbl = wdDoc.Tables(1)
    'dann gibt das entweder ein Fehler oder das tbl is Nothing;
    'Sollte aber nicht, wenn in der Vorlage eine Tabelle drin ist.
    ' Du hast im Code aber eine (auskommentierte?) Table.add Anweisung
 
    'Weiter:
    With tbl
        '...
    End With
    Do '...
        tbl.Rows(i).Cells(1).Range.text = n & "."
        tbl.Rows(i).Cells(2).Range.text = n & "."
 
    Loop