Sub TEST()
    Dim filterRange As Range
    Set filterRange = Sheets("Filter").Range("A1", Sheets("Filter").Range("A1").End(xlDown))
    For Each ws In Worksheets
        If Not ws.Name = "Filter" And Not ws.Name = "Results" Then
            ws.Select
            Range("A1", Range("A1").End(xlToRight).End(xlDown)).Select
            Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=filterRange, Unique:=True
            Selection.Offset(1, 0).Copy
            Sheets("Results").Select
            Range("A" & ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1).Select
            Selection.PasteSpecial
            Range("A2").Select
        End If
    Next
    Sheets("Results").Select
End Sub