I am using the following code to use so when the user enters the filter
criteria (date) into cell E2 and clicks a Command Button, the macro filters
the data in column A, per the criteria, and copies the corresponding rows
through Row J. It then pastes it into a new page where it can be printed.

My problem is that column A contains dates from 6/30/07 to present (and
continuing). The code is not properly filtering the data based upon the
criteria in E2. It's copying almost all the data in column A and only part
of the corresponding rows.

I'd also like it to only copy the cells that contain data, not ALL the cells
up to 500.

I'm stuck. Can someone help me here? TIA...

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