Activar Celda elegida desde Listbox VBA

Tengo un listbox que muestra datos de una base por medio de un textbox y commandbutton filtra la información buscada, todo funciona perfectamente.

Ahora bien no logro coincidir o darle la instrucción al listbox que cuando se seleccione un ítem resultado de la búsqueda me marque el dato exacto en la base de datos también sin importar si este en la fila 1 o la 10000, etc. Lo cual me permita por medio de otra macro que desarrolle eliminar la fila completa.

Me es urgente esto dado que no logro avanzar en el programa por causa de esto.

Saludos,

Mevo.

Este codigo me filtra la informacion en el listbox

Private Sub CommandButton1_Click()

On Error GoTo Errores
If Me.TextBox1.Value = "" Then Exit Sub
Me.ListBox1.Clear
Me.TextBox1.SetFocus
j = 3 'Columna de Datos Inicial
Filas = Range("C8").CurrentRegion.Rows.Count
For i = 8 To Filas 'Fila de Datos Inicial
If LCase(Cells(i, j).Offset(0, 1).Value) Like "*" & LCase(Me.TextBox1.Value) & "*" Then 'Movilizarse hacia derecha en hoja
Me.ListBox1.AddItem Cells(i, j)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Cells(i, j).Offset(0, 4)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Cells(i, j).Offset(0, 5)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Cells(i, j).Offset(0, 6)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 7)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 8) = Cells(i, j).Offset(0, 8)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 9) = Cells(i, j).Offset(0, 9)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 10) = Cells(i, j).Offset(0, 10)
Else
End If
Next i
Exit Sub
Errores:
MsgBox "No se encuentra similitudes", vbExclamation, ""

Como estructuro el codigo para que me coincida con la base el dato seleccionado del listbox.?