Estava usando esse código:

Sub teste()

Dim ID

Range("A4").Select
ID = ActiveCell.Value
Sheets("BASE").Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AM$2891").AutoFilter Field:=7, Criteria1:= _
">=07/07/2014", Operator:=xlAnd, Criteria2:="<=15/07/2014"
ActiveSheet.Range("$A$1:$AM$50000").AutoFilter Field:=5, Criteria1:=ID

End Sub

para filtrar uma base de vendas por um intervalo de data e pelo id de um produto, mas ele sempre retorna filtro vazio, ou seja a base fica só com a primeira linha e ele oculta todos os elementos. Antes estava funcionando, agora estou com esse problema. Também uso o seguinte código para deixar as datas como variável, que também estava funcionando e agora não está mais:

Sub teste()

Dim data_ini As Date
Dim data_fin As Date
Dim ID

data_ini = Format(Range("F4"), "dd/mm/yyyy")
data_fin = Format(Range("G4"), "dd/mm/yyyy")

Range("A4").Select
ID = ActiveCell.Value
Sheets("BASE").Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AK$50000").AutoFilter Field:=7, Criteria1:= _
">=" & data_ini, Operator:=xlAnd, Criteria2:="<=" & data_fin
ActiveSheet.Range("$A$1:$AM$50000").AutoFilter Field:=5, Criteria1:=ID

End Sub

Tem algo errado com o código ou é algum problema do excel?