Este fórum está sendo desativado

[CAMILOALVES01]

Boa Tarde!
Temos uma rotina (macro) que funciona 100% em caso de Não mesclagem de células.
Solicito a gentileza de uma análise no sentido de manter a essência da macro atual possibilitando a mesma de conviver com a mesclagem das células em questão.
OBS: Maiores detalhes na planilha anexo.
Ressalva: Macro na planilha "RESULTADO GRÁFICO" e no Módulo 1
Desde já agradeço

[PHSabater]

Boa noite.
Só trabalhar as células mescladas para fazer a rotina, deixa assim:

Sub LIMPA()
Range("B4:D4").ClearContents
End Sub

[PHSabater]

Para o evento change pode fazer assim:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3:D3")) Is Nothing Or Target.Cells.Count > 1 Then
Exit Sub
End If
Call LIMPA
End Sub

[CAMILOALVES01]

Prezado PHSabater - 09 Mar 2022 às 19:51
Bom Dia! Muitíssimo Obrigado Pela Ajuda, Perfeito!
Até o presente momento, a funcionalidade de agradecimento disponibilizada pela plataforma encontra-se com problemas.
Grato por dispor de seu tempo para resolução da questão
Atenciosamente