Построчный перенос данных из ячеек Excel в закладки Word - VBA

Формулировка задачи:

Добрый день! Помогите, пожалуйста, не смогла найти решения поставленной задачи. Перерыла много форумов, нашла варианта передачи таблиц, реализацию псевдоБД. Но передачу построчно в Word-шаблон в случайные места, определённые закладками - не увидела нигде.

Задача.

Формирование документа на основе данных, введённых в анкету, реализованную в Excel.

Идея.

Суть в следующем.

В рабочей книге Excel есть:

первый лист - Anketa, на котором конечный пользователь вводит данные - в белые ячейки. второй лист - Bookmarks - реализована небольшая табличка с только теми данными, которые нужны в конечном документе. Также там реализована проверка на введённые данные и выборка одного из четырёх вариантов документов. Представлена кнопочка с макросом, который, по идее, должен был реализовать перенос данных в шаблон Word. Документ должен сохраниться в отдельную папочку под своим названием 1,2,3 или 4

Проблема.

Не могу сама просечь, что именно работает не так На данную секунду ругается на строчки, где я инициирую выход из Word. Когда убираю - макрос запускается, но данные не выгружаются и ошибку не выдаёт. Помогите, пожалуйста, направьте в правильное направление...

Решение задачи: «Построчный перенос данных из ячеек Excel в закладки Word»

textual
                            Листинг программы 
                        

                            Sub EnumTORG12()
    Dim lr As ListRow, wbk As Workbook, wdt As Date, dst As Worksheet
    Dim wrd As Word.Application, doc As Word.Document, sNum As String
    Dim sum As String, vdt As Date
    
    wdt = Now() ' Г’ГҐГЄГіГ№Г*Гї Г¤Г*ГІГ* + 0 Г¤Г*. ГЁГ±ГЇГ®Г«ГјГ§ГіГҐГІГ±Гї Г¤Г«Гї Г¤Г*ГІГ» ГўГ»Г±ГІГ*ГўГ«ГҐГ*ГЁГї Г±Г·ГҐГІГ®Гў
    For Each lr In ThisWorkbook.Worksheets("Г’ГЌ").ListObjects(1).ListRows
        With lr.Range
            If Trim$(.Cells(1, 21)) <> "" Then
            
            ' Г‘Г®Г§Г¤Г*Г*ГЁГҐ ГЄГ*ГЁГЈГЁ ГЇГ® ГёГ*ГЎГ«Г®Г*Гі
            If .Cells(1, 15) = 500 Then
                Set wbk = Workbooks.Add(ThisWorkbook.Path & "\ГёГ*ГЎГ«Г®Г*Г»\Г‘Г·ГҐГІ 500.xltx")
            ElseIf .Cells(1, 15) = 700 Then
                Set wbk = Workbooks.Add(ThisWorkbook.Path & "\ГёГ*ГЎГ«Г®Г*Г»\Г‘Г·ГҐГІ 700.xltx")
            Else
                Debug.Print "ГЌГҐ ГіГЄГ*Г§Г*Г* Г*Г®Г°Г¬ГҐГ° ГЄГ®Г*ГІГ°Г*ГЄГІГ* Гў cГІГ°Г®ГЄГҐ " & .Row
                Stop
            End If
            
            ' ГђГ*ГЎГ®ГІГ* ГЇГ® Г§Г*ГЇГ®Г«Г*ГҐГ*ГЁГѕ Г±Г·ГҐГІГ*
            Set dst = wbk.Worksheets(1)
            
            ' ГЌГ®Г¬ГҐГ° ГЁ Г¤Г*ГІГ* Г±Г·ГҐГІГ*
            sNum = .Cells(1, 21) ' Г‘Г®ГµГ°Г*Г*ГЁГІГј Г*Г®Г¬ГҐГ° Г±Г·ГҐГІГ*
            dst.Cells(3, 5) = dst.Cells(3, 5) & sNum & " Г®ГІ " & Format(wdt, "dd.mm.yyyy")
            ' ГЌГ®Г¬ГҐГ° ГІГ®ГўГ*Г°Г*Г®Г© Г*Г*ГЄГ«Г*Г¤Г*Г®Г© (ГІГ®Г°ГЈ-12)
            dst.Cells(17, 6) = dst.Cells(17, 6) & Trim$(.Cells(1, 1))
            ' Г„Г*ГІГ* ГІГ®ГўГ*Г°Г*Г®Г© Г*Г*ГЄГ«Г*Г¤Г*Г®Г© (ГІГ®Г°ГЈ-12)
            dst.Cells(19, 6) = CDate(.Cells(1, 2))
            ' Г‘ГіГ¬Г¬Г* ГІГ®ГўГ*Г°Г*Г®Г© Г*Г*ГЄГ«Г*Г¤Г*Г®Г© Гў Г¤Г®Г«Г«Г*Г°Г*Гµ Г‘Г
                        