¿Cómo mostrar 2 o 3 columnas en listbox pero solo seleccionar la primera columna ?

Tengo un userform el cual tiene un textbox

Y un listbox. El cual me sirve como búsqueda inteligente al cual buscar el producto y selecionarlo me lo escribe en la celda activa.

Lo único que quiero ahora es visualizar el dato PRECIOS en otra columna paralelo a la columna PRODUCTO que está en la columna 11 de la hoja o rango ACTUAL! $C $1:$C $4000 pero siempre solo que me permita seleccionar el producto.

Aquí va el código:

'1Al INICIAR

Private Sub Userform_Inicialize ()

Me.Height = 80

END Sub

'2 AL ESCRIBIR TEXTO EN EL TEXTBOX

Private Sub TextBox1_Change ()

if Me.Textbox1.Value = "" or Me.Textbox1.value= "" Then Me.heigh = 83

Else

Me.Height=260

Dim rng As Range, e

Set Lista = Range  (ACTUAL! $C $1:$C $4000)

With Me.Listbox.Clear

For Each I in Lista.Value

If (i <>"") * (i like "*" & .Textbox1.Value &  "*") Then

.Listbox1.AddItem i

End if

next I

End with

End if

End  Sub

'AL ACEPTAR TEXTO EN EL TEXTBOX Y CAPTURARLO EN LA CELDA ACTIVA

Private Sub CommandButton2_Click ()

Cuenta = Me.ListBox1.List County

For i = 0 To Cuenta -1

If Me.Listbox1.Selected (i) = True And ActiveCell.Value = Empty Then ActiveCell.Value = Me.Listbox1.List (i)

Do While ActiveCell <> Empty

ActiveCell.OffSet (1, 0).Select

Loop

End If

Next I

Unload Me

End Sub

'4 AL CERRAR EL FORMULARIO

Private Sub CommandButton1_Click ()

Unload me

Es todo y espero que alguien me ayude estaré muy agradecido y admirado a la vez puesto que esto me ha sacado canas