Selecting unique occarences from a list

Hi,
I wanted to do it by an equation. not manually clicking the UI.
Ths is a VBA solution given by an Expert called MickG

Sub MG05Mar13
Dim Rng As Range, Dn As Range
Set Rng = Range("A1:B6")
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
    For Each Dn In Rng
        If Not .Exists(Dn.Value) Then .Add Dn.Value, Nothing
    Next
Range("F1").Resize(.count) = Application.Transpose(.keys)
End With
End Sub

Thankful to Mick this works fine but don't u have a solution without macros.