Buscador Catalogo Automotriz

[tazne]

Saludos, tengo un catalogo para piezas automotrices al que le agrege un motor de busqueda con VB. Soy nuevo en este proceso y las variables de mi tabla son muy amplias.
La tabla tiene 12 columnas, A,B D es Marca, Modelo y Año y quisiera que el resultado de la busqueda me arrojara el resultado de las celdas correspondientes en las columnas F y H.
Ejemplo de la tabla:
Marca Modelo X año Y DEL Z TRAS
Fiat 500 x1 2012 y1 D123 z1 T456

Logre hacer un formulario con un macro que hiciera la busqueda inicial pero no se como extraer los datos de las celdas F y H.
El otro problema es como evitar errores de Loop si el dato introducido no existe en la tabla.
Notar que el dato del año puede ser problematico debido a que un vehiculo del mismo ano puede tener 1 o mas coincidencias. Es decir puede tener dos o tres piezas delanteras o traseras que sirven.
Es posible que el Fiat 500 de 2012 utilize la pieza D123 o la D321.

Muchas gracias de antemano

Esto es lo que tengo hasta ahora:

Private Sub CommandButton1_Click()
Columns("A:A").Select
Selection.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Activate
Cells.Find(What:=TextBox2, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 2).Activate
Cells.Find(What:=TextBox3, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
ActiveCell.Offset(0, 2).Select
End Sub