A simple version. But I do not know whether effective.
Sub ImportWordTable_1()

    Dim wdDoc       As Object
    Dim wdFileName  As Variant
    Dim TableNo     As Integer
    Dim iRow        As Long
    Dim resultRow   As Long
    Dim tableStart  As Integer
    Dim tableTot    As Integer




    'On Error Resume Next




    wdFileName = Application.GetOpenFilename("Word files (*.docx),*.docx", , _
                                             "Browse for file containing table to be imported")




    If wdFileName = False Then Exit Sub    '(user cancelled import file browser)


    ActiveSheet.Range("A:AZ").Clear


    Set wdDoc = GetObject(wdFileName)    'open Word file




    With wdDoc
        
        TableNo = wdDoc.Tables.Count
        tableTot = wdDoc.Tables.Count
        
        If TableNo = 0 Then
            MsgBox "This document contains no tables", _
                   vbExclamation, "Import Word Table"
        ElseIf TableNo > 1 Then
            TableNo = InputBox("This Word document contains " & TableNo & " tables." & vbCrLf & _
                               "Enter the table to start from", "Import Word Table", "1")
        End If


        resultRow = 1


        For tableStart = TableNo To tableTot
            
            With .Tables(tableStart)
                .Range.Copy
                iRow = .Rows.Count
            End With


            ActiveSheet.Cells(resultRow, 1).Select
            ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False
            resultRow = resultRow + iRow
        Next tableStart


        .Close False 'close document


    End With


    Set wdDoc = Nothing


End Sub
Artik