Populating ComboBox

I got a row in rangaes A1: A10

I assume that I do not know where it ends and I would like to transfer these values into a combobox and dont need to worry about Unique Values. Am I right in using the do while loops (or do loop untils)

Private Sub frmOptions_Initialize()
    Application.ActiveWorkbook.Worksheets("Sheet1").Activate
    ActiveWorkbook.Worksheets("Sheet1").Range("A1").Select
    
    Do
        ComboBox1.AddItem ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Loop While Not IsEmpty(ActiveCell)
    
End Sub

The thing is, its not working though, Thanks in Advance!