Mit VBA neue Zeilen in Wordtabelle

Dim appWord     As Object
Dim docTest     As Object
Dim letztezeile As Long
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("file:///C:\Users\ich\Desktop\Projekt_Angebot\ _
Angebot_Rohdokument.docx")
Do While IsEmpty(Worksheets("Angebot_bearbeiten").Cells(i, 3)) = False
With docTest.Tables(3)
.Rows(.Rows.Count).Select
Selection.InsertRowsBelow
End With
'Dieser Abschnitt bringt den Fehler, obwohl er eigentlich von der Microsoftsupportseite ü _
bernommen wurde.
'Position
docTest.Tables(3).Cell(k, 1).Range.Text = k - 1
'Menge aus Exceldokument
docTest.Tables(3).Cell(k, 2).Range.Text = Worksheets("Angebot_bearbeiten").Cells(i, 4).Text
'Einheit aus Exceldokument
docTest.Tables(3).Cell(k, 3).Range.Text = Worksheets("Angebot_bearbeiten").Cells(i, 5).Text
i = i + 1 'in Materialliste Zeilen runterzählen
k = k + 1
Loop