Macro to get unique values from range of cells?

Hi guys, got a question relating to vba. I've done some coding so know roughly what I need to do, just don't have that much experience in excel/ vb.

So, what I want to do is get all the unique values from a range of cells and print them in another range of cells, one value per cell. For example, this would be the result:

Original List	Result of Macro
a	a
a	b
b	c
c
a

I assume this would be done by putting the values into an array and then printing that array with some kind of loop (but please correct me if I'm wrong, that guess is based off other code applicaitons).

If possible it'd be great if the macro ignored cells with commas in them e.g. if the contents of a cell was "a,b" it would just skip that cell.

Thanks for any help in advance, and sorry for the newbie question!

Maybe:

Sub wyndham29()
Dim d As Object, c As Variant, i As Long, lr As Long
Set d = CreateObject("Scripting.Dictionary")
lr = Cells(Rows.Count, 1).End(xlUp).row
c = Range("A2:A" & lr)
For i = 1 To UBound(c, 1)
  d(c(i, 1)) = 1
Next i
Range("B2").Resize(d.Count) = Application.Transpose(d.keys)
End Sub

Results from Column A to Column B.

Another one.. much the same as JHD's..

Private Sub CommandButton1_Click()
    Dim x, Z
    With CreateObject("Scripting.Dictionary")
        For Each x In Application.Transpose(Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row))
            Z = .Item(x)
        Next x
        [B1].Resize(.Count).Value = Application.Transpose(.Keys)
    End With
End Sub

Thanks guys, will try out now!