Prezados,

Fiz uma macro aqui no trabalho, que tem como obejtivo:

1 - Abrir Planilhas Selecionadas pelo Usuário.
2 - Copiar o número de registro dos funcionários.
3 - Colar em uma planilha criada pela própria Macro.

O programa faz tudo da maneria correta, só tem um problema, se eu fizer um filtro na Planilha, demora muito tempo para filtrar a informação solicitada, porém quando eu copio e colo essa informação em uma planilha criada manualmente o filtro acontece insatâneamente.

Por gentileza, agluém pode me ajudar, ainda não conseguir resolver essa situação.

As fórmulas que usei para criar a Planilha é:

   

Dim pasta as object
Troquei por esse para ver se funcionava
Dim pasta as Workbook

Set pasta = Application.WorkBooks.Add
Troquei por esse para ver se funcionava
Set pasta = WorkBooks.Add

Já fucei tudo gente, tirei todas as funções que formatavam as fontes, letras, cores.
Deixei Basicão, mas continua lenta.
Por favor Ajudem me.

Desde Já, agradeço.