ComboBox Macro con problemas

Hola, ojalá alguien me pueda orientar, tengo un formulario con un combobox y quiere que el combobox me despliegue datos que están en la columna A y que puede variar los renglones, tengo la siguiente estructura paro a la hora de ejecutar el macro no me despliega nada en el combobox, por favor me pueden orientar donde esta mi error. La estructura que tengo es:
Sub Mostrar_Formulario()
UserForm1.Show
End Sub
Private Sub UserForm1_Initialize()
Sheet1.Select
Range("A1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ComboBox1.AddItem "ActiveCell"
Loop
End Sub
Private Sub ComboBox1_Change()
End Sub