Private Sub Akce_Click()
    Range("C6:C11").Select
    Range("C6:C11").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E6:E11"), Unique:=True
    Range("A1").Value = Range("E6").Value
    
    For i = 1 To 6
        Range("A1").Value = Range("A1").Value & " " & Range("E6").Offset(i, 0).Value
    Next
    Range("E6:E11").Delete
End Sub

Tady máš akci na "tlačítko" (stačí si vyrobit ovl. prvek a dát mu tento kód).

V podstatě:
C6-C11 jsou buňky zdrojové (s duplikáty, můžeš si to rozšířit dle libost)
E6-E11 jsou výsledky (dočasné, budou nakonec smazány, zvol si místo někde zcela mimo, např. AX1:AX20, počet by měl být stejný jako u zdroje pro případ, že všechny zdrojové budou unikátní)
A1 je pole, kde se objeví výsledek
Ve For cyklu je tolik iterací (běhů), kolik je zdrojových buněk.