Cargar un combobox con datos de otra hoja del mismo libro

Estoy haciendo una macros, la cual posee un botón "Active X", que se llama cargar datos. Este botón debe cumplir la función de cargarme un combobox con los datos de otra hoja. Estos datos están en la hoja "clientes", a partir de la celda B7. Cabe destacar que el combobox debe mostrar los datos hasta la celda vacía, es decir que si agrego más datos, deben ir actualizándose en este combobox.

Este es mi código, pero arroja error 1004.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
'borra los datos del combobox2
ComboBox2.Clear
'Llenar los datos de combobox1
If ComboBox1.Value = Empty Then
Dim c As Object
dato = ComboBox1.Value
Set c = Sheets("CLIENTES").Range("B7: A1048576").Find(dato, LookIn:=xlValues, Lookat:=xlWhole)
If Not c Is Nothing Then
dire = c.Address
Range(dire).Activate
End If

Espero me puedan ayudar, SALUDOS
Application.ScreenUpdating = True
End If
End Sub