Help required to extract data in Word doc to Excel

[snb]

Both tables can be copied in 1 go:

Sub M_snb()
  With GetObject(, "Word.Application").ActiveDocument
    .Range(.Tables(1).Range.Start, .Tables(2).Range.End).Copy
  End With
    
  With ActiveSheet
    .Paste .Cells(1)
    .Cells.UnMerge
    .Range("A1, A5, A11:A14,A24:A27,A34").EntireRow.Delete
    .UsedRange.SpecialCells(4).Delete -4159
    .Rows("9:16").Insert
    .Range("C1:D8").Cut .Cells(9, 1)
    .UsedRange.Borders.LineStyle = -4142
    .Columns.AutoFit
  End With
End Sub