¡Jo! Solo te has equivocado 3 veces en una palabra de 5 letras.😂 WorkSheet_SelectionChange()  

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  

No. Sube tu archivo de ejemplo. ¿Porque le dices que remplace Hola si sabes que hay celdas que no la tienen?

Tienes el evento "WorkSheet_SelectionCnage()"

@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