Insertar un vector ordenado sin elementos repetidos en un comboBox

[ManuelP89]

Hola buenas. Hace una semana postee un código que necesitaba arreglo. Ya lo he solucionado pero tengo otro problema. No puedo seleccionar elementos del combobox, creo que también me valdría copiando el elemento seleccionado en otra celda pero tampoco se como hacerlo. Dejo el código. Necesito ayuda!! Gracias

Private Sub ComboBox1_DropButtonClick()

Dim vec(10) As String
Dim Index(35) As String
Dim i, j, k As Integer
Dim count, num As Integer
Dim aux As String
Dim valor As String


count = 0
valor = a
num = 0

ComboBox1.Clear
Application.ScreenUpdating = False
Worksheets("Water").Select
ActiveSheet.Range("B2").Select

'Contabiliza el numero de celdas de la columna C que tienen el mismo valor del parémtro DN en la columna B"

While ActiveCell <> ""

If ActiveCell = Worksheets("Enerfis").Range("J8").Value Then
count = count + 1
If count = 1 Then
row = ActiveCell.row
End If
End If
ActiveCell.Offset(1, 0).Select
Wend

On Error GoTo 0

'Rellena el vector con los valores contabilizados

Worksheets("Water").Cells(row, 2).Select
For i = 0 To count - 1
Index(i) = ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Select
Next i

'Ordena el vector de menor a mayor

For i = 0 To count - 1
For j = i + 1 To count
If Index(i) > Index(i) Then
aux = Index(i)
Index(i) = Index(j)
Index(j) = aux
End If
Next j
Next i

'Elimina los elementos repetidos del vector

For i = 0 To count - 1
For j = i + 1 To count - 1
If Index(i) = Index(j) Then
Index(j) = valor
End If
Next j
Next i
j = 0
For i = 0 To count - 1
If Index(i) <> valor Then
vec(j) = Index(i)
j = j + 1
num = num + 1
End If
Next i

'Carga los datos del vector en el comboBOx

For i = 0 To num - 1
ComboBox1.AddItem vec(i)
Next i

ComboBox1.Activate

End Sub