Formulario de consulta mediante listbox y Excel

He programado un formulario de consulta enlazado a Excel mediante un listbox, sin embargo al seleccionar el resultado de mi búsqueda en el listbox quisiera que se agregara a la Hoja3 llamada "Factura de Venta" la cual diseñe previamente.

La celda especifica donde quisiera agregar este valor sería A9 dentro de la misma Hoja3.

¿Me podrías explicar u orientar como hacer dicho enlace?

PD: Anexo el código en cuestión.

Private Sub bbuscar_Click()
    If Me.tb1.Value = Empty Then
        MsgBox "Debes ingresar un dato para buscar"
        Me.ListBox1.Clear
        Me.tb1.SetFocus
        Exit Sub
    End If
Me.ListBox1.Clear
items = Range("Tabla2").CurrentRegion.Rows.Count

        For i = 2 To items
            If LCase(Cells(i, 1).Value) Like "*" & LCase(Me.tb1.Value) & "*" Then
                Me.ListBox1.AddItem Cells(i, 1)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, 2)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, 3)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, 4)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Cells(i, 5)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Cells(i, 6)
            ElseIf LCase(Cells(i, 2).Value) Like "*" & LCase(Me.tb1.Value) & "*" Then
                Me.ListBox1.AddItem Cells(i, 1)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, 2)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, 3)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, 4)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Cells(i, 5)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Cells(i, 6)
           End If
        Next i
            Me.tb1.SetFocus
            Me.tb1.SelStart = 0
            Me.tb1.SelLength = Len(Me.tb1.Text)
Exit Sub
End Sub

Private Sub bsalir_Click()
    Unload Me
End Sub