VBA to filter by dates, return values only if between certain dates

Further to the last post, I am able to filter the start date to "before or equal to" today

and the end date to "After or equal to" today

Recording this macro returns the following code

ActiveSheet.ListObjects("Table_owssvr_1").Range.AutoFilter Field:=5, _
        Criteria1:="<=24/05/2015", Operator:=xlAnd
    ActiveSheet.ListObjects("Table_owssvr_1").Range.AutoFilter Field:=6, _
        Criteria1:=">=24/05/2015", Operator:=xlAnd

However I need the date "24/05/2015" to always be the current date.

Any help be great

Thanks