Hi

I have a macro which removes duplicates (please see below)

ActiveSheet.Range("A2:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("B2"), Unique:=True
However, after removing duplicates, macro to should identify and display only values(dates) which are equal or greater than today and sort the values(dates).
For more clarity please look at the below example.



Example.

Lets say, we have following values(dates) in Column-A
12/1/2015
12/5/2015
12/21/2015
12/23/2015
12/5/2015
12/3/2015
12/10/2015
12/1/2015
12/10/2015
12/6/2015

Say, today's date is 12/6/2015

after running the macro, the result should be displayed in B-Column like shown below
12/6/2015
12/10/2015
12/21/2015
12/23/2015


Any help is appreciated.