Hi,
i am looking to filter date by user generated days, i.e an input box and they the number of + or - days so for example if today -10 was inputted the 29/12/16 would be filtered, I am currently using the below code; Can anyone help amend this? 

Sub Another_Filter1()
Dim ws As Worksheet:    Set ws = Sheets("X47")
    
    Application.ScreenUpdating = False
    
    Application.Calculation = xlManual
    
    Application.EnableEvents = False
    
    Application.DisplayAlerts = False

With ws
    .AutoFilterMode = False
    .Range("A5:AO5000").AutoFilter Field:=1, Criteria1:=Date + 1
    .Range("$A$5:$BA$5000").AutoFilter Field:=24, Criteria1:="="
End With

    Application.ScreenUpdating = True
    
    Application.Calculation = xlAutomatic
    
    Application.EnableEvents = True
    
    Application.DisplayAlerts = True

End Sub