OK Antony, l'ho provata e funziona, ma data la tua macro come faccio per renderla contemporaneamente valevole anche per gli altri intervalli di immissione?
Ho provato la funzione sotto ma mi da errore.
If Intersect(Target, Range("H26:P47")) or Intersect(Target, Range("H84:P104")) or Intersect(Target, Range("H142:P162")) Is Nothing Then Exit Sub