将信息从单元格插入组合框

Question

我不确定代码出了什么问题，但之前有效，我在顶部只添加了3行。我知道这不完美，可以做得更好，我很感激帮助！

逻辑： 我希望代码从单元格A5读取到工作表的末尾，然后将它们放入组合框中进行选择。

Private Sub UserForm_Initialize()
Dim cntr As Integer
cntr = Application.WorksheetFunction.CountA(Range("A:A"))
For i = 6 + i To cntr
Me.ComboBox1.AddItem Cells(i, 1)


Next i
End Sub