Resultoooooooou obrigada a todos pela ajuda valeu

sim eu testei os três. e continuam sempre alguns zeros a aparecer

sim eu tentei. mas não apaga os zeros todos de uma vez. se tiver uns 35 zeros.. só apaga 19.. por exemplo

Está aqui o ficheiro. sorryyyyy, foi distração : eu zipei mas enviei o errado..

esta aqui um exemplo obrigada

a macro continua sem eliminar os zeros todos : será que é por ter numeros negativos e positivos?

sim. o meu problema é aqui: Set NewBook = Workbooks.Add With NewBook .Title = "Book_O" .Subject = "Orçamento (Pto)&quo...

resultou para mim também. mas como e que eu sei que não tenho mais espaço num workbook? eu estou a fazer um codigo para quando nao tiver mais espaço...

Resultouuuuu muito obrigada

thaaanks mas aconteceu uma coisa estranha. eu testei no excel que enviei e resultou. mas no excel final, o codigo só funciona se correr passo a passo...

esta aqui um exemplo, menos pesado (o ficheiro original tem muito mais linhas) se fores ver a sheet "AN_C" esta la a ordem que deve ser copi...