Autocompletar en una lista desplegable en Excel vb.

Quizás pudieran ayudarme, la idea es por cada celda con datos en la columna A, agregué una lista desplegable en cada celda de la columna B y a su vez cada que el usuario ingresé una letra se vaya mostrando únicamente los registros que tenga coincidencia con lo que se está escribiendo. Hasta el momento en esta misma página me ayudaron con el siguiente código, pero este solo agrega la lista desplegable falta el autocompletar.

Sub Lista ()

Ult = Range("A" & Rows.Count).End(xlUp).Row

For ifila = 2 to Ult

If cells(iFila, "B").Value <> "" then

With selection.validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=_

XlBetween, Formula1:="=Valores!$$A$2:$A:9"

End With

End If

Next

End Sub