Como dice el bueno de Haplox, "Está claro que no está claro".
Te dejo lo del If con lo que he entendido:
For y = 0 To 3
Select Case True
Case InStr(1, LCase(c.Offset(0, y)), "out"): c.Offset(0, y) = "NS"
End Select
Next
@oaseijas39 , teienes un buen jaleo, me temo...
No he entendido bien qué quieres hacer.
¿Quieres copiar el rango solo a la hoja que selecciones en el Inputbox, o a todas las hojas?
¿El rango copiado se pegaría en la misma posición en la hoja destino?
Deberías subir tu fichero original para dejarlo todo preparado en él