Extracting Unique Records with Advanced Filter

Hi,

I am trying to extract unique records from a column of data using advance filter. Here is my code:

LR = shSource.Cells(rows.Count, "F").End(xlUp).Row 'Last row of column F
shSource.Range("F12:F").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=shSetup.Range("G2"), Unique:=True

The code works except for one thing. The first record in the source column is included twice in the filtered result. Can anyone explain why this happens? Thank you.

Also, I would like the unique records to be sorted in ascending /descending order. Can this be done at the sale time as the filtering process - kind of one step? Please let me know. Thank you.

Thanks for noticing but this does not solve the issue of the duplicate first record.

Unfortunately I cannot download or open the file.

I have figured it out. Apparently Excel treats the top row, first cell specified in this case, as a header, and does not consider whether they are duplicated in the data below. If the data has no headers, that can cause a duplicate being put in the result. The fix is to add a header row, with unique headers for every column. So I changed the line

shSource.Range("F12:F").AdvancedFilter Action:=xlFilterCopy, _

to

shSource.Range("F11:F").AdvancedFilter Action:=xlFilterCopy, _

and no more duplicate values. Thanks for your help y'all. :-)