Ingresar datos en ComboBox

Buen día!

he creado en Visual Basic un UserFor, en el ingrese un ComboBox, en el que quiero que me aparezcan unos datos ingresados en otra hoja de excel, pero no me da...

el código que estoy empleando es el siguiente:

Private Sub ComboBox1_Change()
Sheets ("MAQUINARIA")
Range("A1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ComboBox1.AddItem ActiveCell
Loop
End Sub

me colaboran en que estoy fallando?

Gracias