Certinho Reinaldo ! Obrigado !

Segue em anexo Apaga o conteudo E2 Stopado, pois ele volta ficar, sendo que nem preenchi as celulas parar, preço e objetivo Se o valor preço for igual...

Nem fiz o teste que daria para pontuar mais de uma pessoa. Valeu pela resposta Patropi

Alguma coisa me confundi aqui, pois quer dizer que o código estava certo. Vou dar o ponto JValq, espero que me entenda, mas obrigado pela sua atenção...

Não deu certo ! Se o saldo ficar negativo tem que limpar I12 Saldo.xls

Só limpar mesmo o conteúdo, mas esse que eu fiz não está limpando

Resolvi, pois fiz tudo novamente a planilha com o mesmo código e deu certo. Agora o erro não sei, fica o mistério !

Isso é um mistério ! Não funciona com o 12 ! wsAtiva.Range(Cells(1, 1), Cells(1, 21)).Copy: wsAtiva.Range(Cells(12, 1), Cells(12, 21)).Insert shift:=x...

Tenta isso DateValue =

Não funcionou, além de desconfigurar a planilha e apareceu uma cor roxo Essa pequena que está em anexo não acontece o erro, pois quando faço nessa ma...

Bom, se tiver em pares só dividir por 2 (8 Agings/2 = 4 Manha e 8 Agings/2 = 4 tarde ) e se tiver 5 Agings você não vai conseguri dividir por 2