If day(Date + 1) < 10 Then
ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=1, Criteria1:=Format(Date + 1, "ddd mmm d")
ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=6, Criteria1:="=High", _
Operator:=xlOr, Criteria2:="=Medium"
Else
ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=1, Criteria1:=Format(Date + 1, "ddd mmm dd")
ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=6, Criteria1:="=High", _
Operator:=xlOr, Criteria2:="=Medium"
End If