Filter on today's date forward

Maybe

Dim Dt As Date
Dt = Date
With Columns("Q:T")
    .AutoFilter Field:=1, Criteria1:="Underwater Services"
    .AutoFilter Field:=4, Criteria1:=">=" & Val(Dt), Operator:=xlAnd
End With

VBA Noob