Szukanie unikatowych wartośći można przeprowadzić na różne sposoby: wykorzystać kod uzyskany przez filtr zaawansowany albo użyć rejestratora z narzędziem usuń duplikaty. Najlepiej byłoby napisać własną procedurę tworzącą n elementową tablicę z unikatami, ale nie wiem, czy czuje się Pan na siłach programować na tablicach. Jeśli tak, przykład tutaj:

http://www.cpearson.com/excel/distinctvalues.aspx

Osobiście proponuję skorzystać z listy unikatów utworzonej na brudno w mniej więcej taki sposób (do sparametryzowania rzecz jasna, jak widać filtr zaawansowany może kopiować wyniki w inne miejsce):

Public Sub Test()

ActiveSheet.Range("A2:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("B2"), Unique:=True

End Sub

Żeby można było skorzystać z wyboru wielu elementów, należy wykorzystać kontrolkę ListBox na formularzu, z własciwością MultiSelect ustawioną na 1 (SelectMulti). Potrzebuje Pan również pętli (for next albo do until), która załaduje wyfiltrowane wcześniej wartości unikatowe na listę ( na zdarzeniu  inicjalizacji formularza, rzecz jasna). Na formularzu umieścić należy również przycisk, który uruchomi kopiowanie zaznaczonych wartości - tutaj również pojawi się pętla for next, która powinna wyglądać w zarysie tak:

For i = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(i) Then
             'kopiowanie danych
          End If
 Next