VBA to filter dates

[sswcharlie]

Hi

I have 2 columns (dynamic named range called 'Seven') one with data and next column the date data was entered. Just need date only, not time etc.

I want to list separately in an adjacent column, say D1, the items that have a date older than the current date. That is to remove the current date items and list items with dates before current date.

So far I have but it is only guesswork.

Range("Seven").AutoFilter Field:=1, Criteria1:="<" & CurrentDate

Need comments on it, and how do I show to place results in column D1

thankyou
CharlesHarris