@e_straub , Sugiro vc dar mais detalhes (aqui ou no próprio arquivo) do que quer fazer, o arquivo que você postou só 1 Aba com 6 números de A4:...

@lucas1903 , Veja se é isto ... 1) Copia a tabela A1:K11 e cola em A16 2) em B17 cole esta fórmula abaixo e arrasta até K26 =SE(MÁXIMO(SE($A$2:...

@jordsdoexcel , Agora siiiimmmmmmm!!! kk ... Fechou!!! ... Valeu!!! Só troquei a linha do "Delete" por esta "Clear" ... Sheets("Calculo-Geral").Rang...

@jordsdoexcel , troquei o código lá por esse acima, e continua jogando tudo um abaixo do outro ... é que tenho outros dados abaixo dessa linha 30 e ta...

@jordsdoexcel , melhorou, mas ... Troquei esta linha ...'Selecionando uma região p/ depois exlcuirSheets("Calculo-Geral").Cells(5, 1).CurrentReg...

Testa aí ... Supondo a data em A1 ... =SE(DIA(A1+35)<10; DATA(ANO((A1+35));MÊS((A1+35));10); DATA(ANO((A1+35));MÊS((A1+35));25)) ... tira os ...

Outra aula super interessante!!! ... O ideal é assistir as 12 aulas, como fiz, mas, para quem já domina VBA, vai ficar fácil entender!!! Resumo: uni...

@jordsdoexcel, valeu!! ... Que coisa de louco!!! .... Selecionei as células "vazias" e dei um Del e também funcionou!!! ... Essa eu nunca tinha visto!...

Só para esclarecer, o código do EdsonBR funciona perfeitamente, mas após os testes descobri que, primeiro tem que excluir as linhas, depois as colunas...

@edsonbr, valeu!!! ... SHOW!!!

EdsonBR, vc fez algo parecido que funcionou muito bem, e por muito tempo ... Mas em OUT/21 tive que mudar o arquivo, aí o código deixou de funcionar ....