Check you data in column M, you probably have spaces at the beginning or end
of entries causing it to appear duplicated.

Use Trim to remove leading and trailing spacers

--

Regards,
Nigel




"Jay" wrote in message
...
The folloiwng macro is intended to look at a list of numbers in column "M"
and copy unique records only to column "B".
But I'm still getting duplication in column "B".

Macro:
Sub Macro1()

' copy unique Work Order numbers to columb "B"
Range("M6:M200").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range( _
"B6"), Unique:=True

End Sub

column "M"
73369
73369
73369
75817
75817

results in column "B"
73369
73369
75817