Guru do Excel e Power BI

Olá Pessoal,

Eu tive que abrir um novo tópico pois como eu marquei resolvido no tópico anterior, eu não consigo mandar mais mensagens. Eu notei um problema ao rodar a macro em que quando algum percentual está zerado, a macro da erro. Conseguem ajudar?

Acrescente a parte em vermelho conforme abaixo.

If c.Offset(, 1).Value > 0 Then Cells(Rows.Count, 9).End(3)(2).Resize(c.Offset(, 1).Value * 100).Value = c.Value

Olá
Eu tinha criado uma solução, e não deu tempo de postar, mas como o tópico foi reaberto e longe de qualquer comparação, mas para não perder o esforço, anexo planilha com a minha solução.
Até