Vai salvar o arquivo criado com qual nome? Não usei sua planilha como base.. Esse codigo é um exemplo que salva o resultado em uma arquivo xlsx ...

A estrutura do arquivo que interessa... Suas 170 abas possuem apenas 2 colunas cada?

Esse é o seu arquivo? Qual o criterio para filtrar os dados?

Eu nao tenho como testar entao faça os testes tudo indica que deve funcionar

Com base na sua planilha de exemplo Troque o seu codigo por este Sub InserirNomes() Dim plan As Range Dim WNULinha As Long Dim W...

Se disponibilizar a planilha fica mais facil

Tenta Assim

Ela é necessaria para testes... Nem precisa de ser completa

Sua planilha é exatemente assim????? Nao pra colocar tudo em uma aba so??

Kd a base de dados geradora da Tabela Dinamica.

Arquivo de exemplo

Se for a qtd de linhas iguais nem precisa de macro. Disponibilize o arquivo com dados de exemplo

Disponibiliza o arquivo. Sem isso é impossivel obter ajuda. Guarde os dados importantes e disponibilize uma copia com dados de exemplo apenas.

Alem dos comentarios do Mauro, observei o que disse que seria um problema Na tabela dinamica, vc tem na coluna F as seguites informações ENVIAR EMAI...

Disponibilize os arquivos Base e Usuario O arquivo base é apenas para consolidar os dados ou ele permenece aberto por muito tempo?