Filter Sheet With date

[p45cal]

Take a look at the attached which has the following in the first sheet's code module:
[vba]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$2" Then
Range("B3:C37").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:F2"), Unique:=False
End If
End Sub[/vba]The data range could be a list (aka table post xl2003) which would mean it would still all be filtered if the list was added to. I've done this on the second sheet with this code behind it:
[vba]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$2" Then
ListObjects("List1").Range.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:F2"), Unique:=False
End If
End Sub[/vba] You could even make it a dynamic named range instead.
The criteria range doesn't need to be on the same sheet.

You can do something similar with an autofilter but the code would be a bit more complex (to make it robust).