Ayuda con problema en visual basic

Me pillas con el ordenador de Visual Basic y Excel estropeado. Luego no puedo probar nada. Ya me dirás si funciona esto. Supondré que el arreglo se toma de la columna A de la hoja de Excel y que es un arreglo de números reales simples. Y el arreglo nuevo lo pondré en la columna B.

El método se basa en ordenar el arreglo y luego tomar elementos cuando aparece uno distinto del anterior.

Dim ar(1000), ar2(1000),  auxi as single
Dim i, j, ulfi, sitio as integer
ulfi = range("A65536").end(xlUp).row
for i=1 to ulfi
    ar(i) = cells(i,1)
next
for i = ulfi to 2 step -1
    for j = 1 to i-1
        If ar(j)>ar(j+1) then
             auxi = ar(j)
             ar(j) = ar(j+1)
             ar(j+1) = auxi
        End If
    next
next
ar2(1) = ar(1)
auxi = ar2(1)
sitio=2
for i = 2 to ulfi
    if ar(i) <> auxi then
        ar2(sitio) = ar(i)
        auxi = ar(i)
        sitio = sitio+1
    end if
next
for i = 1 to sitio-1
    cells(i,2) = ar2(i)
next

Y eso es todo, respetemos lo de un ejercicio por pregunta. Mándame el otro en otra pregunta.