Tenta assim Troque isso nr = .Range("A" & Rows.Count).End(xlUp).Row - 1 .Range("A1" & nr)...

Funcionou perfeitamente. Obrigado

Sinceramente como a planilha nao tem dados nao entendi o caluculo que vc pretende fazer.

Ve se isso ajuda

Disponibilize um ARQUIVO modelo. com dados de exemplo Informando o resultado esperado.

Sendo assim Insira uma planilha no arquivo Nomeie com o nome Ferias Digite qualquer valor em A1 so nao pode ficar vazio Cole esse codigo no mod...

Tem razão o errado sou eu em querer te ajudar.

Cara na boa pra mim deu vc nao explica direito, tem preguiça de fazer um exemplo descente, e qdo pedimos pra melhorar vc ainda acha que temos a obriga...

Continuei quase na mesma .... mas ainda nao entendi.

Juntei as abas Computadores, Instalações, Maq & Equip, Moveis e Utensilios, Softwares, e Veiculos na aba BASE NOVA. A macro é ativada por Ctrl . ...

Como saber o que esta produzido ou nao... Qual o criterio pra formar a tabela que esta em A9:B14 da plan2 e gera a tabela transposta na mesma aba

Nao entendi disponiblize um arquivo modelo com o resultado esperado.

Disponibilize seu arquivo com o codigo.

Como eu disse as colunas os cabeçalhos nao sao iguais e nao sao em ordem por exemplo existem dados na base que nao existe nas outras como fica essa in...