Macro que busca y modifica datos, y que pueda auto completar el combobox

Tengo el siguiente código que encontré y modifique en el que con un formulario busco 3 datos con un combobox, los datos que busco estan en otra hoja diferente donde se ejecuta el formulario. El problema es que no logro hacer que el combobox pueda auto completar, (cuando dígito un dato no se porque lo que me aparece en los texbox son los encabezados de las columnas, 1,5,7) ya que los registros son muchos y es tedioso andar buscándolos en la lista. Lo otro es que cuando desplegó la lista el combobox me lleva a la "hoja13 ", y lo que deseo es que eso sea invisible para el usuario. Y al cerrar el formulario se mantenga en la hoja1 . Actualmente me deja en pantalla la hoja13

Y si se puede agregar mensaje cuando haya modificado el registro.

Agradecería mucho que ustedes que son expertos me puedan ayudar con esto, yo soy nuevo en esto. Este es el código:

Private Sub ComboBox1_enter()
Application.ScreenUpdating = False
ComboBox1.Clear
Hoja13.Select
Range("d5").Select
Do While Not IsEmpty(ActiveCell)
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

Private Sub ComboBox1_change()
Application.ScreenUpdating = False
Cells(ComboBox1.ListIndex + 5, 2).Select
TextBox1 = ActiveCell.Offset(0, 1)
TextBox2 = ActiveCell.Offset(0, 5)
TextBox3 = ActiveCell.Offset(0, 7)
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Cells(ComboBox1.ListIndex + 5, 2).Select
'grabamos los datos modificados
ActiveCell.Offset(0, 1) = (TextBox1)
ActiveCell.Offset(0, 5) = (TextBox2)
ActiveCell.Offset(0, 7) = (TextBox3)
ComboBox1.Clear
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Unload Me
Application.ScreenUpdating = True
End Sub