Find unique values from an Autofiltered list

[Passman]

I have a worksheet with over 8000 rows of data in a range BB20:BV8359. Using VBA I have autofiltered this range with 2 criteria, column BC ="Newcastle" and column BD="Wed".

I am trying to get a list of unique dates from cell BE20 to the last row, but only of the filtered data not the entire list. I have searched the forum and come up with nothing.

I would be grateful for some help with VBA code to get a unique list of date starting in cell Range("DA1")

Thanks for your help

 

[Passman]

I found a way to achieve what I was trying to do. If it is of any help to anyone in the future I have posted my solution below

            Sheets("TempSheet").Visible = True
            Sheets("TempSheet").Cells.Delete Shift:=xlUp
            lRow = Range("BE" & Rows.Count).End(xlUp).Row
            Range("BE20:BE" & lRow).SpecialCells(xlCellTypeVisible).Copy
            Sheets("TempSheet").Activate
            Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            c = Cells(Rows.Count, 1).End(xlUp).Row
            Range("$A$1:$A$" & c).RemoveDuplicates Columns:=1, Header:=xlNo
            c = Cells(Rows.Count, 1).End(xlUp).Row
            If c >= 16 Then
                Range("A" & c - 15 & ":A" & c).Copy
            Else
                Range("A1:A" & c).Copy
            End If
            Sheets("Dashboard").Activate
            Range("BW3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Sheets("TempSheet").Visible = False

I'm sure there must be a more elegant way to achieve the same thing but it seems to work.