VBa to hide rows based on multiple criteria

[Sintek]

Hi All

I have attached my sample file. I am looking to have code hide rows before printing.
The criteria to be met is as follows: If the time in Column A < Current time which is in D4 And the value in Column D is<= 0.00 then
Hide those rows. I have this for now

Sub RowHide()
Application.ScreenUpdating = False
    Dim cell As Range
    Dim cell2 As Range
    Worksheets("HSales").Activate
    For Each cell In Sheets("HSales").Range("a8:A17")
        
            If cell.Value > Range("D4")  Then
                cell.EntireRow.Hidden = True
            
        End If
    Next
   Application.ScreenUpdating = True
End Sub