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