Tom answered my original post titled, "Filter and Copy?", but I'm still
having problems with it.

My code to Filter and Copy data from one sheet and transfer it to another
is:

Sub Advanced_Filter()
Range("A5:J500").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("E1:E2"), _
CopyToRange:=Range("Print!A5"), _
Unique:=True
Sheets("Print").Select
Range("A5").Select
End Sub

In the <Criteria Range I enter the date in cell E1. When I click the
command button to activate the code, I want it to filter all the dates in
column A to come up with the date entered in cell E1 as the criteria and
copy the corresponding cells. Unfortunately, it's not filtering. It only
copies ALL the date in cells A5:J500 and copies them to Print!A5.

Does anyone have an idea what's wrong?