Boa noite. O único erro que vi no seu código é: Paste:=xlValues (está faltando "Paste") O correto seria... Selection.PasteSpecial _ Paste:=...

Desenvolva uma função personalizada na sua pasta de trabalho, ou seja, crie um procedimento Function. A guia Desenvolvedor não é visível quando você a...

Boa noite. Tente substituir ".PasteSpecial xlPasteValues" por isso: .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ ...