Veja se o resultado é o esperado.
Adaptado da sua Macro.

De qualquer maneira, inclua títulos nas colunas C e D se elas farão parte da área do filtro.

Sub HOJE()
'MACRO QUE PROCURA PRIMEIRO , SE A MESMA NAO ENCONTRAR ND REFERENTE , A MESMA NÃO FILTRA E RETORNA A MSBOX

If WorksheetFunction.CountIf(Range("$F$11:$F$20000"), Date) = 0 Then
MsgBox " NÃO TEMOS DATA PARA ESTA OCORRÊNCIA ... "
Exit Sub

Else

ActiveSheet.Range("$C$10:$G$20002").AutoFilter Field:=4
'MACRO QUE FILTRA A DATA DE HOJE

ActiveSheet.Range("$C$10:$G$20000").AutoFilter Field:=4, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic

End If

End Sub

Muito obrigado!
Exatamente isto .
Vou colocar na planilha padrão .
Obrigado !
Ok