Guru do Excel e Power BI

Olá pessoal, tudo bem?
Estou com uns problemas pra separar as abas de uma planilha que desenvolvi.
O erro está aqui:
ActiveSheet.Name = Sheets("BASE").Cells(linha, 10), quando chega nessa linha dá o seguinte erro:
"ERRO TEMPO DE EXECUÇÃO '1004':
ERRO DE DEFINIÇÃO DE APLICATIVO OU DE FUNÇÃO DE OBJETO
Já comparei o código e mesmo assim, o erro persiste.
Alguém pode me ajudar? Aguardo respostas! Forte abraço!

P.S: vou anexar o arquivo para que os amigos possam me ajudar! Deus os abençoe!

Acrescente a parte em vermelho, conforme baixo.

Range("J1").PasteSpecial xlValues


dica - acrescente o comando em vermelho, conforme abaixo, para reduzir o tempo de execução do código e evitar a "tempestade" na tela durante a execução
linha_fim = Range("A1").End(xlDown).Row
Application.ScreenUpdating = False