You're welcome and yes I used the advance filter.
If you trun on the macro recorder and record those actions the recording gives some good code you can repeat over and over.
Here are a couple of options.
Sub CreateUniqueList()
With Sheets("Sheet1")
.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=.Range("B1"), Unique:=True
End With
End Sub
Sub FilterUnique()
Dim Rng As Range, Dn As Range
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Dn In Rng
If Not .Exists(Dn.Value) Then
.Add Dn.Value, ""
End If
Next
Range("B1").Resize(.Count).Value = Application.Transpose(.keys)
End With
End Sub
Bookmarks