Can I change in Excel VBA combobox.list range?

Question

Is there any option in Excel VBA which allows me to change range of combobox? See example

I would like to change number 5 in Variant/Variant(0 to 3, 0 to 5).

Combobox is filled with this code:

Private Sub UserForm_Activate()

Dim x As Range
    With Worksheets("Distributori")
      Set x = .Range("A2", .Range("F1000").End(xlUp))
End With

ComboBox1.RowSource = "Distributori!" & x.Address
ComboBox1.ListIndex = 0
Me.ComboBox1.TextColumn = 2

End Sub

Answer 1

Try the next (adapted) code, please:

Dim x As Range, arrList As Variant
    With Worksheets("Distributori")
      Set x = .Range("A2", .Range("F1000").End(xlUp))
    End With
    arrList = x.Value
    With ComboBox1
        .ColumnCount = 6
        .list = arrList
        .ListIndex = 0
        .TextColumn = 2
    End With