vba to filter table by today's date up to 10 days. and save as new version

I have a table that is imported to excel from the internet. I need to filter the due date column (column 7) by todays date up to 10 days out and I would like to save as an xlsm doc that will vary in its file name each time it is saved to the given folder. Any help would be appreciated


Sub Dater()

Dim Sh As Worksheet
Set Sh = Worksheets("Pending Approval by Responsible")
With Sh.Range("A3").CurrentRegion
Range("A3").Select
Selection.AutoFilter
.AutoFilter Field:=7, Criteria1:=">=" & CLng(Date), Operator:=xlAnd, Criteria2:="<=" & CLng(Date + 10)
End With
End Sub

I have answered my own question.. Thanks