Guru do Excel e Power BI

Boa tarde a todos. Preciso filtrar os valores da coluna AD na coluna B, de pedidos, não entendo porque o código não esta funcionando. Para testar, cliquem no botão FILTRAR.

O código foi:
Sub teste()


Range("A5:AA7000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("Portal!Criteria"), Unique:=False
End Sub


Onde criteria é a tabela com os pedidos, e a coluna B do primeiro range é onde consta os pedidos.

Já tentei de tudo, não sei o que acontece

Obrigado

Amigo,
veja se o que fiz te ajuda,

obs. corrija o conteúdo de AD4, deve ser igual a B4