Fila seleccionada en ListBox1 pasarla automáticamente a ListBox2

Tengo el siguiente código el cual me selecciona una fila del ListBox1. Lo que necesito es que si ingreso un código que no esta en la columna A, salga un mensaje "Código no está en lista", aceptar y situarse en TextBox3. Y si el código si está, seleccione la y pase automáticamente al ListBox2 y así sucesivamente con las demás que filas que seleccione. Finalmente al haber pasado todas las filas del ListBox1 al ListBox2 pasar todas las filas del ListBox2 a la Hoja2 despues de la ultima fila con datos, dejar en blanco el ListBox2 y situarse en el TextBox1. Gracias por su apoyo.

Private Sub TextBox3_AfterUpdate()
'si la lista está vacía cancela
If ListBox1.ListCount <= 0 Then Exit Sub
'recorre la lista buscando el elemento. Como empieza en 0 le resta 1 al total
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i, 1) = TextBox3 Then
 'si coincide con el textbox, lo selecciona y finaliza el bucle
 ListBox1.ListIndex = i
 Exit For
End If
'repite el bucle
Next i
End Sub