Excel - Eliminar fechas inferiores a la actual

Buenas, espero que alguien siga mirando esta pagina. Tnego un problema, intento eliminar las filas de mi base de datos que sean inferior a la fecha actual con el siguiente codigo, pero no me funciona

Sub fechas_H()
Workbooks("zmm_contratos.xlsx").Activate
Dim fechaHoy As Date

'fechaHoy = DateSerial(Year(Date), Month(Date), Day(Date))
fechaHoy = Date
With ActiveSheet.Range("H1").CurrentRegion
.AutoFilter Field:=8, Criteria1:="<" & fechaHoy 'Filtra las filas con fechas antiguas
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Elimina las filas filtradas excepto la fila de encabezado
.AutoFilter 'Quita el filtro
End With
End Sub

Alguien podria saber porque?
Muchas gracias!

Si me funcionó! mil gracias :)