Usar Combobox para buscar el dato establecido y ver el detalle en un list box dentro de un USER Form

H o l a :

Te facilito la macro 

Private Sub ComboBox1_Change()
'Fuente Dante
ListBox1.Clear
    If ComboBox1.ListIndex = -1 Or ComboBox1.Value = "" Then Exit Sub
    '
    Set h1 = Sheets("Hoja1")
    For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
        If h1.Cells(i, "A") = ComboBox1.Value Then
            ListBox1.AddItem h1.Cells(i, "B")
        End If
    Next
End Sub
Private Sub UserForm_Activate()
'Fuente Dante
'Carga el combo1
    Set h1 = Sheets("Hoja1")
    For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
        agregar ComboBox1, Cells(i, "A").Value
    Next
End Sub
Sub agregar(combo As ComboBox, dato As String)
'Fuente Dante
    For i = 0 To combo.ListCount - 1
        Select Case StrComp(combo.List(i), dato, vbTextCompare)
            Case 0: Exit Sub 'ya existe en el combo y ya no lo agrega
            Case 1: combo.AddItem dato, i: Exit Sub 'Es menor, lo agrega antes del comparado
        End Select
    Next
    combo.AddItem dato 'Es mayor lo agrega al final
End Sub

Me comentas y valora para finalizar saludos!!

El combobox1 debe estar vacía, la macro hará el listado saludos.

Amigo la verdad es que estoy recién aprendiendo todo esto de las macro así que estoy un poco confundido con lo que pusiste en las respuestas por que no se como reemplazar los datos de "hoja 1" y reemplazarlo como corresponde :( si me puedes explicar algunos puntos estaría agradecido te dejo más imágenes de referencia.

Muchas gracias amigo.