Com o teu exemplo, tenta dessa forma:

Sheets("GRAFICOS").Select
ActiveSheet.Range("ENDEREÇO DA RANGE, COMO A11:CM640").AutoFilter _
                                        Field:="NUMERO DA COLUNA DA SELEÇÃO QUE SERA FILTRADO", _
                                        Criteria1:="VALOR DO CRITERIO"

Pietro poderia fazer na planilha ?

pq o código que vc me passou é igual ao meu, e não funcionou;

Experimente:

Sub Filtrar_Fazendas()
Application.ScreenUpdating = False
Dim NmData As String
NmData = Format(Sheets("GRAFICOS").Range("N5").Value, "dd/mm/yyyy")

'Primeiro Filtro
    Sheets("Sulcação, Insumos e Coberta GER").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$10:$CM$474").AutoFilter Field:=4, Criteria1:=Sheets("GRAFICOS").Range("B5").Value
    ActiveSheet.Range("$A$11:$CM$474").AutoFilter Field:=2, Criteria1:=NmData
'Segundo Filtro
    Sheets("Distribuição GERAL").Select
    ActiveSheet.Range("$A$11:$CM$640").AutoFilter Field:=4, Criteria1:=Sheets("GRAFICOS").Range("B5").Value
    ActiveSheet.Range("$A$11:$CM$640").AutoFilter Field:=2, Criteria1:=NmData

Sheets("GRAFICOS").Select
Range("A1").Select
End Sub

Os dados do código precisam ser alterados antes de rodar a macro.

Reinado não deu certo, caso queira fazer o teste na planilha,

Dim NmData As String
NmData = Format(Sheets("GRAFICOS").Range("N5").Value, "dd/mm/yyyy") já tinha feito esse teste, mais não deu certo, não sei onde tava errando.

Grato

Pietro não deu certo tambem, fiz a troca conforme o solicitado, e só dava error

agradeço a disposição de vocês...

Fábio, boa tarde.

Revise os seguintes pontos:

'Primeiro Filtro
...
ActiveSheet.Range("$A$10:$CM$474").AutoFilter Field:=4, Criteria1:=Sheets("GRAFICOS").Range("B5").Value
'ActiveSheet.Range("$A$11:$CM$474").AutoFilter Field:=2, Criteria2:=Sheets("GRAFICOS").Range("N5").Value

*O range da segunda parte do primeiro filtro deveria partir de A10, não de A11
*Não há um Criteria2 para o Field2, pois vc só tem um critério nesse campo (data), então mude para Criteria1:=...
*Siga a recomendação do Reinaldo forçando o formato do critério Data como "dd/mm/yyyy", caso contrário o critério ficará no formato inglês (mês/dia/ano). Isto está no Help do objeto AutoFilter (bem confusamente escrito, diga-se de passagem)

'Segundo Filtro

*Zere qualquer filtro existente como vc fez no Primeiro Filtro na linha "Selection.AutoFilter"
*Quanto ao "Criteria2", idem ao acima
*Quanto ao formato de data, idem ao acima

Bem explicado do seu ponto de vista Edson, muito obrigado cara pela ajuda, tava sofrendo, e não achava onde,

Se vc observar bem, o Reinaldo já tinha corrigido a questão do Criteria2 x Criteria1, tanto que ele usou a forma certa já no código dele.