Excel VBA: запись из листа Excel в таблицу слов, если в таблице существует определенное значение

Question

я пытаюсь заполнить пробелы в текстовом документе из листа Excel. до сих пор это работало, давая точную строку и столбец. Теперь у меня есть таблица в слове, которая варьируется, поэтому мне нужно найти в первом столбце запись, и если она существует, запишите из моего листа Excel во второй столбец этой строки.

Пока что у меня есть :

Sub LeasingscheinFuellen()
    Dim wd As Object
    Dim doc As Object
    Dim wdDoc As Object
    Dim i As Integer

    Const myDoc = "path of word document here"

    Set wd = CreateObject("Word.application")
    wd.Visible = True
    Set doc = wd.Documents.Open(myDoc)
    Set wdTable = doc.Tables(4)




    With ThisWorkbook.Worksheets("Table1").Activate
'the next two lines work perfectly
        doc.Tables(2).Cell(2, 2).Range.Text = Range("D11").Value
        doc.Tables(3).Cell(2, 2).Range.Text = Range("D11").Value
'here comes my try which sadly fails
        For i = wdTable.Rows.Count To 1 Step -1
            If wdTable.Cell(i, 1).Range.Text = "ABCD" Then
            wdTable.Cell(i, 2).Range.Text = Range("D12").Value
            End If
        Next i


    End With

После этого я закрываю все и сохраняю документ Word, он отлично работает.

Это мой первый VBA-код, я благодарен за любую помощь или за любую идею , Спасибо