Tentei por algum tempo encontrar algo razoável para ajudar, mas a lógica por trás não está clara. As sequências podem ser grandes ou têm um limite?

@edsonbr Funcionou perfeitamente! Obrigado.

JValq, Muitíssimo obrigado!

JValq, Não tinha percebido isso! O exemplo que mandei estava realmente com erro porque precisei apagar as referências. Confesso que olhei para seu c...

JValq, Apresentou esse erro: Erro em tempo de execução '13': Tipos incompatíveis If Cells(i, j).Value > 0 Then No aguardo!

wzxnet7, Funcionou corretamente, obrigado!

Pessoal, Resolvi somente com efeito visual. Primeiro formatei as células com borda grossa, cor, fonte....... e depois apliquei uma condicional para q...

JSCOPA, Claro, resolveria. No entanto, achei interessante formatar com a borda espessa para dar mais realce. Veja só este outro anexo! Há como faze...

Prezados, Segue um exemplo.