Auto Filter By Times

Hi, I have a workbook I am trying to autofilter(Col I) by time greater than 4:00:00 am but less than 11:59:59pm but I'm not getting any results returned? I included a test book to help.

Thank You, Mike

 Sub TEST()
  
dTime = TimeSerial(4, 0, 0)
eTime = TimeSerial(23, 59, 59)

With Sheets(1)
    .Range("A1").AutoFilter Field:=9, Criteria1:=">" & dTime, Operator:=xlAnd, Criteria2:="<" & eTime
End With
End Sub