No te entendí bien pero lo que me dices es que ingreso, por ejemplo:

pstrcadena= "Tipo1 Modelo2"

entonces con la funcion InStr(Cadena, Cadena, Int) buscas la posicion del separador y asi colocas en dos cadenas los criterios:

PosSepa = InStr(" ",pstrcadena,1)

pstrcadena1 = mid(pstrcadena,1,PosSepa)

pstrcadena2 = mid(pstrcadena,PosSepa,len(pstrcadena)-PosSepa)

luego

'// Dentro de un loop

If (celda(i,j).value = pstrcadena1) then

'// Otro loop

if celda(i,j).value = pstrcadena2 then

celda(i+1,j).select

rango.Insert xlShiftDown, ObjetoOrigendeLaCopia


-------------------------------------------------------------


Aplicando eso debrias poder llegar a una solucion que te satisfaga, si quieres cuela un ejemplito de libro para poder mirar lo que tienes y asi poder ayudarte mejor. Supongo que programas bien por eso te lo pongo tan esquematico.

Cualquier pregunta con gusto te responderé.