Need VBA code to Filter Dates Tomorrow + 7 days

[LtCmdrData]

I need help writing some VBA code. Each morning I get a report of open orders. I'm working a week into the future so I want to filter on the due date column and delete all rows with a due date of tomorrow + 7 days into the future. For example if today is 9/19 then I want to filter for all rows with due dates of 9/20 thru 9/26 (7 days). Can someone please help me with this code? Thank you.

 

[sunnyland]

May be you can try this code. I supposing that the data is on Sheet1 and there is a named range "dates".

Sub filterDate()
Dim date1  As Long
Dim date2 As Long
date1 = DateSerial(Year(Date), Month(Date), Day(Date)) + 1
date2 = DateSerial(Year(Date), Month(Date), Day(Date)) + 7
    
Sheet1.Range("dates").AutoFilter
Sheet1.Range("dates").AutoFilter Field:=1, Criteria1:= _
        ">=" & date1, Operator:=xlAnd, Criteria2:="<=" & date2
End Sub

 

[LtCmdrData]

Thank you, your suggestion did exactly what I was looking for.