Olá galera, não sei como explicar direito mas tenho um arquivo onde na coluna A1, tem o nome dos funcionário.

Existe 2 grupos de funcionários, um o grupo A(alpha) e o outro β(beta).

na coluna B1:C1 tem a data 2017/3/1 na coluna D1:E1 a data de 2017/3/2 e assim por diante, de 2 em 2 colunas vai uma data, pois na mesma data tem o grupo A e o Grupo B. Então na coluna B1:C1 mesmo sendo a mesma data na coluna B1 vai o Grupo A, na coluna C1 vai o grupo B.

quando um funcionário falta usamos o ■ como critério, quando ele esta de licença médica usamos o ★ como critério em ambos grupos, e o ▲ seria a presença, então:
Ficaria assim:

A questão é que eu fiz uma macro pelas bases no meu mínimo conhecimento e, eu consigo fazer um um autofiltro somente quando a data esta nas linhas e não por colunas,
o codigo é o seguinte:

Sub Macro1()

ActiveSheet.Range("$A$6:$CP$1125").AutoFilter Field:=2, Criteria1:="=■", _
Operator:=xlOr, Criteria2:="=★"

End Sub

gostaria que alguém me ajuda-se, como eu posso fazer com que o código leia a data do dia, e filtre somente esse dia EX: hoje é dia 22 então seria a coluna BE, eu sei que se eu mudar o Field:=2 para 57 que seria a coluna BE da certo, mas gostaria que isso fosse automático.

alguém poderia me ajudar ? o resto do código que montei deu certo, quando mudo manualmente o field da certo, gostaria de um HELP,

grato desde já.