Calculate

Olá Luana, tudo bem com você?

Peço desculpas pela demora em obter um retorno.

Ao analisar a imagem que você disponibilizou não foi possível identificar nenhum erro. Todavia, para que todas as células sejam alteradas automaticamente, modifique o valor à direita do sinal de menor (<), ou seja, altere o valor 15 para qualquer outro, por exemplo, If pQtdEstoque < 30 Then, salve o arquivo VBA e após isso, selecione a aba "Produtos Infantis" na célula F3 e clique CONTROL + ENTER e todas as células abaixo serão alteradas.

Espero ter ajudado. Continue mergulhando em conhecimento e não hesite em voltar ao fórum para continuar aprendendo e interagindo com a comunidade.

Em caso de dúvidas estou à disposição.

Abraços e bons estudos!