Problema con Condicion al insertar a celda

Espero me puedan Sacar de una Duda ya que no desifro el porque..
mi problema se presenta en una hoja de excel la cual cree un forma
con texbox y combo box y un comando es el que inserta renglones

en hoja 1, coloque un codigo para que me agregue un color dependiendo el
criterio tipo:
Select Case Target
Case "Orden Vencida"
.ColorIndex = 3 'rojo
aqui es donde truena y me sale el debug con el sig mensaje
Run-Time error '13' type mismatch
al ejecutar el comando insert
todo me funciona y coloca los datos en cada celda y me pone correcto el color
solo que ahi al insertar me truena y me marca el error antes mensionado
espero haber sido claro con mi problema

se los agradeceria si me pueden ayudar pero de antemano gracias