Hola amigos, cordial saludo, tengo una macro para no tener que usar la caja de dialogo y no funciona

He aquí la macro, la ensayé también con rango de celdas y no funciona, SOS de antemano muchas gracias

Sub FILT()
'
' FILT Macro
'
Columns("A:QUE").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"AX1:BA2"), CopyToRange:=Range("BB1"), Unique:=False
Range("BA2").Select
End Sub