Macro to automate filter >= "inject todays date here"

like this?

Selection.AutoFilter Field:=10, Criteria1:>=TODAY(), Operator:=xlAnd

Present Macro looks like this;

Sub TAB_report()
'
' TAB_report Macro
' Macro recorded 3/14/2007 by Xxxx
'
' Keyboard Shortcut: Ctrl+q
'
Range("A1:K408").Sort Key1:=Range("J2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1:S1").Select
Selection.AutoFilter
Cells.Select
Cells.EntireColumn.AutoFit
Columns("C:C").Select
ActiveWindow.SmallScroll Down:=-6
Selection.ColumnWidth = 14.86
Columns("D:D").Select
Selection.ColumnWidth = 48.43
Range("C2").Select
ActiveWindow.FreezePanes = True
Selection.AutoFilter Field:=8, Criteria1:="=TAB Review", Operator:=xlAnd
ActiveWindow.SmallScroll Down:=-9
Selection.AutoFilter Field:=10, Criteria1:=">=TODAY()", Operator:=xlAnd
End Sub

Clearly doesn't work for the following reasons that I can determine;
>=TODAY() is recorded as a string literal - which it isn't, its a system date injected - I'm lacking the knowledge, skill and or resources to define the correct mode of 'injection' for todays date.

All direction is appreciated

Thank you Carim -

exactly what I required, simple when you know what/how.

Best regards

Carl