:=Range("AJ4:AK4"),

I would expect to be at least 4 cells.

--
Regards,
Tom Ogilvy

"VinceT" wrote in message
...
I currently am working on a fairly large sheet where i want to
extract/copy
data to another area using two different criterea. currently it seems to
be
copying all the data. Any suggestions will be appreciated

Sub DataM()
Range("R1:Y2400").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Range("AJ4:AK4"), CopyToRange:=Range("AG9:AN9"), Unique _
:=True
End Sub

--
Thanks,
VinceT