Quake

¦^´_ 1# duck_simon

Sub Ex()
    Dim d As Object
    Dim cell As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cell In [B2:M3]
        d(cell.Value) = ""
    Next cell
    Rows("6").ClearContents
    [B6].Resize(1, d.Count) = d.keys
    [B6].Resize(1, d.Count).Sort Key1:=[B6], Orientation:=xlLeftToRight
End Sub