My test code;
Option Explicit
Sub WordExcel2()
Dim myDoc As Object
Dim myID As String
Set myDoc = GetObject(ThisWorkbook.Path & "\test.docx")
myDoc.Application.Visible = True
myID = "***_X0001" 'Sheets("Overview").Range("B1").Value
Call FilterID(5, myID, Sheets("ECW_Raw"), Sheets("ECW_Filtered"), myDoc)
Call FilterID(5, myID, Sheets("OT_Raw"), Sheets("OT_Filtered"), myDoc)
Call FilterID(1, myID, Sheets("MB_Raw"), Sheets("MB_Filtered"), myDoc)
End Sub
Private Sub FilterID(lngCol As Long, strCrit As String, wsR As Worksheet, wsF As Worksheet, wdDoc As Object)
Dim wdRng As Object
wsF.UsedRange.Offset(1).ClearContents
With wsR.Range("A1").CurrentRegion.Columns("A:F").Offset(, lngCol - 1)
.AutoFilter
.AutoFilter 1, strCrit
If .Columns("A").SpecialCells(xlCellTypeVisible).Count > 1 Then
Union(.Offset(1).Columns("B"), .Offset(1).Columns("F")).Copy
wsF.Range("A2").PasteSpecial xlPasteValues
wsF.Range("A1").CurrentRegion.Copy
Set wdRng = wdDoc.Range
wdRng.Collapse 0
wdRng.InsertBreak 7 '3:wdSectionBreakContinuous, 7:wdPageBreak
wdRng.Paste
Application.CutCopyMode = False
End If
.AutoFilter
End With
End Sub