Создание и редактирование макросом Excel таблицы в Word

Sub Generation()
    Dim doc As New Word.Application 'Создание объекта'
    Dim docword As Word.Document 'Создание документа'
    Set docword = doc.documents.Add 'Привязка типов'
    
    nmb_rec = Sheets("Таблица").Cells(1, 1).CurrentRegion.Rows.Count 'Количество строк в таблице'
    nmb_req = 0 'Количество обработанных заявок и названия файлов'
    
            Set doc = Nothing 'Очищаем переменные файлов'
            Set docword = Nothing 'Очищаем переменные файлов'
            Set docword = doc.documents.Add 'Привязка типов'
            nmb_req = nmb_req + 1
            namefile = ThisWorkbook.Path & "\" & nmb_req & ".docx" 'Имя нового файла = путь к текущему файлу excel + номер заявки + docx'
            doc.Visible = True 'Отображать документ или нет'
            namereq = "ЗАЯВКА №" & nmb_req 'Заголовок в файле'
            lenstr = Len(namereq) 'Определение количества символов в заявке'
            'Формирование большого текста'
            With docword
                .Range(Start:=0, End:=0).Font.Name = "Times New Roman"
                .Range(Start:=0, End:=0).ParagraphFormat.SpaceBefore = 0
                .Range(Start:=0, End:=0).ParagraphFormat.SpaceAfter = 0
                .Range.Text = namereq & vbCr 'vbCr перенос на новую строку'
                Set tablecity = .Tables.Add(.Range(Start:=.Range.Characters.Count - 1, End:=.Range.Characters.Count - 1), 1, 3)
                tablecity.Columns(1).Width = 1 'Ширина столбца 1'
                tablecity.Columns(2).Width = 3
                tablecity.Columns(3).Width = 12
                
            End With
 
    'Создание документа'
    '------------------------------------------------------'
 
    '------------------------------------------------------'
    
    docword.SaveAs2 (namefile) 'Сохранить документ'
    docword.Close 'Закрыть документ'
End Sub

tablecity.Columns(1).Width = 1