collumn headings and the specific data

Your criteria have only one row

--
Regards Ron de Bruin
http://www.rondebruin.nl


"VinceT" wrote in message ...
Tom Thanks for your input. Yest the range for the criterea contains the
collumn headings and the specific data
--
Thanks,
VinceT


"Tom Ogilvy" wrote:

:=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