Mostrar e contar entradas na tabela filtrada até hoje via EXCEL VBA

como o título indica, estou tentando usar um filtro via VBA para ocultar todas as entradas de data de uma tabela filtrada que estão no futuro e contá-las, mas o código simplesmente não funcionará da maneira que tentei.

Minha abordagem atual é a seguinte:

Dim wbkPlanning As Workbook
Dim wksPlanning As Worksheet
Dim FilterValue as Integer

Workbooks.Open (.... Some Path...) 'this works as i have several other Autofilters in this macro that do the job just fine)

Set wbkPlanning = Workbooks("NAMEOFWORKBOOK.xlsx")
Set wksPlanning = wbkPlanning.Worksheets("NameOfWorksheet")

wksPlanning.Range("$A$4:$AS$600").AutoFilter Field:=24, Criteria1:="=<" & CDbl(Date)

FilterValue = wksPlanning.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1

MsgBox FilterValue

Quando configuro o filtro manualmente na planilha, os resultados são bons, mas quando configuro assim, recebo resultados zero.

Estou meio perplexo e gostaria muito de algumas dicas.

Obrigado!