Sub COKIAA3()
'Excel
ExcelPath = ActiveDocument.Path             ' this assumes same folder as Word Document
MyWorkbookName = "D:\COKIAA3.xls"      '[*] AMEND
MyLookupSheetName = "Sheet"           '[*] AMEND
'Word
Set WordDoc = ActiveDocument
Set WordRange = WordDoc.Content
Dim appWd As Word.Application
Dim q As Integer

'- OPEN EXCEL APPLICATION
'-----------------------------------------------------------------------------------------
'- See if Excel is open already (next line gives error if not)
On Error Resume Next
Set xlapp = GetObject(, "Excel.Application")        ' set variable if Excel already open
'-----------------------------------------------------------------------------------------
'- check for error
    If Err.Number <> 0 Then
        Set xlapp = CreateObject("Excel.Application")   ' open Excel application
    End If
On Error GoTo 0     ' reset error trapping
'-----------------------------------------------------------------------------------------
'- USE EXCEL
'-----------------------------------------------------------------------------------------
    With xlapp
        .Visible = True             ' show Excel/no show Excel
        '-------------------------------------------------------------------------------------
        '- Excel workbook & worksheet
        'MyWorkbookName = ExcelPath & "\" & MyWorkbookName
        Set MyWorkbook = .Workbooks.Open(FileName:=MyWorkbookName)
        Set MyLookupSheet = MyWorkbook.Worksheets(MyLookupSheetName)
        MyLookupSheet.Activate
     q = xlapp.ActiveSheet.UsedRange.Rows.Count ' здесь указываем, что ActiveSheet расположен в Экселе
        MyLookupSheet.Range("A1:H" & q).Copy
    End With
    
Application.Selection.PasteExcelTable _  ' здесь указываем, что Selection расположен в Ворде (приложении где лежит макрос)
    LinkedToExcel:=False, _
    WordFormatting:=False, _
    RTF:=False
    
    With xlapp
        .CutCopyMode = False
        .Quit
    End With
    
End Sub