Insertar un vector ordenado sin elementos repetidos en un comboBox

[ManuelP89]

Hola. Necesito un poco de ayuda con este código. Me salta el error 9 en tiempo de ejecución al seleccionar la celda activa y no entiendo bien por qué, puesto que en teoría la sintaxis de la instrucción es correcta. El resto del código parece funcionar.

Agradecería mucho una ayuda. Dejo el código aquí:

Private Sub ComboBox1_Change()

Dim Index() As String
Dim i, j, k As Integer
Dim count As Integer
Dim aux As Double
count = 0
Dim celda As Range


Application.ScreenUpdating = False
ComboBox1.Clear
Application.Goto ActiveWorkbook.Sheets(“Water”).Range(“B2”)



'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
Set celda = ActiveCell
End If
End If
ActiveCell.Offset(1, 0).Select
Wend

'Rellena el vector con los valores contabilizados

For i = 0 To count - 1
ActiveCell = celda
Index(i) = ActiveCell.Offset(0, i + 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 - 1
If Index(i) > Index(j) Then
aux = Index(j)
Index(j) = Index(i)
Index(i) = 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
For k = j To count - 2
Index(k) = Index(k + 1)
Next k
End If
Next j
Next i

'Carga los datos del vector en el comboBOx

For i = 0 To count - 1
ComboBox1.List = Index(i)
Next i

ComboBox1.Activate

End Sub