OK - ik heb het aan de praat zoals ik het wil. Blijkbaar moet je effectief werken met een range en je voorwaarden in het werkblad formuleren om "advanced filter" te kunnen gebruiken.
'Create Unique Description List
.Range("a1", .Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:="", CopyToRange:=Sheet2.Range("O1"), Unique:=True
is geworden
'Create Unique Description List
.Range("a1", .Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=Range("a200:a201"), CopyToRange:=Sheet2.Range("O1"), Unique:=True
en id de cel a200 staat LPD en in cel a201 staat '=v*