Sub Macro3()
'
' Macro3 Macro
Range("E35").Select
Sheets("TB").Select
ActiveSheet.Range("$A$10:$CD$33").AutoFilter Field:=25, Criteria1:= _
">=" & Format(Date, "dd/mm/yy") & "06:00", Operator:=xlAnd, Criteria2:="<=" & Format(Date, "dd/mm/yy") & "10:00"
End Sub