Oprette combobox med autofilter form

Hej alle,
jeg skal have oprettet en UserForm som i en af listerne indlæser som valgmulighed hvad der står i søjle A.

Har søgt lidt omkring, og faldt over denne kode, som henter søjle A ind og grupperer den, således at jeg bare skal have skrevet dataen over i et array - men jeg kan bare ikke få det til at virke. - hvad gør jeg galt?


Sub AutoFilterArray()

Dim Uniq_Matrix As New Collection
Dim TempMatrix
Dim StartSheet As Worksheet
Dim rngStart As Range, rngIndexCol As Range
Dim i As Long
Dim iUniqTotal As Integer
'Dim InputArray As ?

  Set StartSheet = ActiveSheet
  With Application
      .DisplayStatusBar = True
      Set rngStart = StartSheet.Range("A1")
      Set rngIndexCol = StartSheet.Range("A1")
      .Calculation = xlCalculationManual
      .ScreenUpdating = False
  End With
 
  '***fyld alle data i kol A over i et midlertidig array
  With rngIndexCol
      TempMatrix = Range(Cells(rngStart.Row, .Column), Cells(65536, .Column).End(xlUp).Address)
    End With
   
  '***træk de unikke items ud i en collection
  On Error Resume Next
  For i = 2 To UBound(TempMatrix)
      Uniq_Matrix.Add TempMatrix(i, 1), CStr(TempMatrix(i, 1))
'    InputArray(i - 1) = i
  Next i
 
  End Sub