Unique Filter Macro not working correctly

[Jay]

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

 

[Nigel]

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

 

[Jay]

That's what i suspected at first.
But when I manually type the values in (witn no leading or trailing
spacers), I get the same results.

 

[sdutta]

This command requires a column header. You should include the column header
for column M in the source range as well as the copy_to range.
Assuming your header for M is in M5 it will put the header in B5 followed by
the unique results under it.

Range("M5:M200").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range( _
"B5"), Unique:=True

 

[Jay]

That appears to have helped.
Thank you!