Problemas al seleccionar un dato en el listbox
Estoy realizando una tabla de datos en Excel en la cual tengo un textbox escribo el dato que necesito en el y después le doy click a buscar que es un commandbotton y me busca el dato bien y este aparece en un listbox y cuando lo selecciono lo puedo editar .. El problema esta que cuando busco un nombre especifico y lo busca a la hora de seleccionarlo me aparecen los datos de la primera fila de mi tabla en excel y así sucesivamente me van apareciendo los datos en el orden que están en la tabla de excel y no del dato que yo busco. Les agradecería su ayuda no se mucho de esto.
On Error Resume Next
Sheets("Usuarios").Select
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Usuarios").Activate
If nCliente(ListBox1.Text) <> 0 Then
Sheets("Usuarios").Activate
Cells(ListBox1.ListIndex + 2, 1).Select
TextBox1 = ActiveCell.Offset(0, 0)
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 4)
TextBox6 = ActiveCell.Offset(0, 5)
TextBox7 = ActiveCell.Offset(0, 6)
TextBox8 = ActiveCell.Offset(0, 7)
TextBox9 = ActiveCell.Offset(0, 8)
TextBox10 = ActiveCell.Offset(0, 9)
TextBox11 = ActiveCell.Offset(0, 10)
TextBox12 = ActiveCell.Offset(0, 11)
TextBox13 = ActiveCell.Offset(0, 12)
TextBox14 = ActiveCell.Offset(0, 13)
Else
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
End If
Y esto es lo que tengo en mi listbox .. Me podrían corregir los errores.