Add giá trị từ mảng động vào comboBox (1 người xem)

[tuanhuycntt]

Chẳng là em có 1 đoạn code như thế này. E vẫn ko hiểu sao ComboBox nó không nhận dữ liệu. Nếu sử dụng bằng Marco thì lại dễ quá. Em muốn thay đổi bằng code nhưng không khả quan. Các bác sửa lỗi giúp em với ạ.

Range("A1:A10") là chứa dữ liệu.
Cần thêm vào ComboBox: dấu * và các giá trị trên

Option Base 1
Private Sub TestArray()
    Dim Arr(11)
    Dim i As Integer
    Dim a As Integer
    Dim TestDD As DropDown
    Set TestDD = Sheet1.DropDowns("Drop Down 1")
 
    dongcuoi = Range("A:A").SpecialCells(xlCellTypeLastCell).Row
 
        Arr(1) = "*"
        For i = 2 To dongcuoi
           a=i-1
            Arr(i) = Range("A" & a).Value
        Next i
        Range("B1:B11").Value = Application.WorksheetFunction.Transpose(Arr)
        TestDD.List = Arr
End Sub