If common headers exist in all worksheets
Sub test()
Dim wshS As Worksheet
Dim wshT As Worksheet
Dim rngS As Range, rngD As Range, rngC As Range
Set wshT = Worksheets("Inspection")
Set rngD = wshT.Cells(1, wshT.UsedRange.Columns.Count + 2)
wshT.[b3].Resize(, 4).Copy rngD
Set rngD = rngD.CurrentRegion
For Each wshS In Worksheets
If wshS.Name <> wshT.Name Then
Set rngS = wshS.[a1].CurrentRegion
Set rngC = rngS.Offset(, rngS.Columns.Count + 1).Resize(2, 1)
rngC(2).Formula = "=J2=""X"""
rngS.AdvancedFilter xlFilterCopy, rngC, rngD
rngD.CurrentRegion.Offset(1).Copy
wshT.Cells(Rows.Count, 2).End(xlUp).Offset(1).PasteSpecial xlValues
rngC.Clear
rngS.Columns("j").Offset(1).ClearContents
End If
Next
rngD.CurrentRegion.Clear
End Sub