Sub Filtrando()
Dim nrox As String

Application.ScreenUpdating = False
    Range("AI1:AL219").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("AR1:AU2"), CopyToRange:=Range("AR3:AU280"), Unique:=True
    finx = Range("AR" & Rows.Count).End(xlUp).Row
    If finx > 3 Then
        'se arman los números concatenados en AW si no tienen X
        finy = Range("AW" & Rows.Count).End(xlUp).Row + 1
        For Z = 4 To finx
            nrox = Format(Range("AR" & Z) & Range("AS" & Z) & Range("AT" & Z) & Range("AU" & Z), "0000")
            If InStr(1, UCase(nrox), "X", 0) = 0 Then
                Range("AW" & finy) = nrox: finy = finy + 1
            End If
        Next Z
    End If

End Sub