Loop through a range of cells to find unique entries

Hello All,
I am trying to loop through a column of cells for all unique entries. I
know how to loop but i don't know how to specify the results of being unique
and adding them to a seperate column can anyone help?

Column A

Test
Test 1
Test 2
Test
Test 1

I want this to appear in column B

Column B
Test
Test 1
Test 2

Thanks everyone

Rather than looping I would use the following code:-

Range("A:A").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("B1" _
), Unique:=True

It uses Advanced Filter to copy unque entries to B1.
Play around with this, I think it is far more straightforward,

Somethinglikeant

Thank you very much thats great!!!
"somethinglikeant" <[email protected]> wrote in message
news:[email protected]...
> Rather than looping I would use the following code:-
>
> Range("A:A").AdvancedFilter Action:=xlFilterCopy,
> CopyToRange:=Range("B1" _
> ), Unique:=True
>
> It uses Advanced Filter to copy unque entries to B1.
> Play around with this, I think it is far more straightforward,
>
> Somethinglikeant
>