Импорт таблицы word на лист excel

[Sunrisefixtures]

Доброго времени суток! Будте добры, подскажите! Нужно импортировать таблицу из word (в приложении "Ворд.docx") на "Скрытый лист" книги excel (в приложении "Excel.xlsx") начиная с ячейки "E6", затем из скопированной таблички на "Скрытый лист" нужно подставить данные в таблицу на лист "База". Или возможно подставить данные в таблицу на листе "База" минуя "Скрытый лист"

[alex77755]

по приложенным таблицам не понятно что куда надо распихивать. Хоть бы показал что надо получить. А так разбирайся дальше сам
Таблицу достать можно так:

Sub qwert()
    Set app = CreateObject("Word.Application")
    app.Documents.Open Filename:=ActiveWorkbook.Path & "\Ворд.docx"
    Set tb = app.activedocument.tables(1)
    
    tb.Range.Copy
    Лист2.Cells(1, 1).Select
    ActiveSheet.PasteSpecial Format:="HTML"
    app.Quit
    Set app = Nothing
End Sub