Segue uma alternativa alterando o intervalo de critérios.
Na planilha
Banco de Dados LI, em AH1 coloque
ARTIGO e em AH2
="="&Grafícos!A3
Aí digite somente JOSÉ em A3 e rode o código abaixo, que já está com o intervalo de critérios alterado para AH1:AH2.
Código: Selecionar todosSub Macro_Filtro()
Range("dadosfiltro").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Banco de Dados LI").Range("AH1:AH2"), _
CopyToRange:=Range("A6:AD4079"), Unique:=False
End Sub
Se você quiser aplicar o filtro sem clicar no botão, instale também o código abaixo no módulo da planilha
Grafícos (que tal Gr
áficos ...

).
Aí digite JOSÉ e aperte Enter para aplicar o filtro.
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$3" Then Exit Sub
Macro_Filtro
End Sub