Makro mit Autofilter

Hallo zusammen,
würde für folgendes Makro gerne auch die Zeilen sehen,
welche "leer" sind.
Bisher wird mir hier nur das heutige Datum angezeigt.

Sub Heute()
ActiveSheet.Unprotect
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Dim Startdatum
Dim Enddatum
Startdatum = CDbl(Date) - 1
Enddatum = CDbl(Date) + 1
ActiveSheet.Range("$A$4:$Q$1000").AutoFilter Field:=3, Criteria1:=">" & Startdatum & "",  _
Operator:=xlAnd _
, Criteria2:="<" & Enddatum & ""
ActiveSheet.Unprotect
End Sub