Guru do Excel e Power BI

Bom dia. Em uma planilha tenho na celula B3 o caminho de 1 arquivo que anexei em um email ( C:\Sitema\Dados\exemplo.pdf). Gostaria de pegar este arquivo e salva-lo em outro diretorio (c:\testes\) com o memo nome utilizado independente se é xls, jpeg ou outro formato. Ate cheguei perto mas quando quero abri-lo diz que foi corrompido.

Obrigado

Experimente:

Sub CópiaDeArquivo()
FileCopy [B3], Replace([B3], Mid([B3], 1, InStrRev([B3], "\")), "C:\testes\")
End Sub