Uma solução é colocar o texto que você deseja copiar em uma variável e, em seguida, usar a biblioteca MSForms para copiar o texto para a área de transferência. Primeiro, certifique-se de ter a biblioteca de objetos Microsoft Forms 2.0 incluída no seu projeto VBA (no VBA Editor, vá para Ferramentas > Referências > Microsoft Forms 2.0 Object Library).

Aqui está o código modificado:

Substituir "Sheet1" pelo nome da sua planilha,

Sub CopiarNome()

    Dim DataObj As MSForms.DataObject
    Set DataObj = New MSForms.DataObject
    Dim strText As String
    
    strText = Trim(Worksheets("Sheet1").Range("D5").Value)
    
    DataObj.SetText strText
    DataObj.PutInClipboard
    
End Sub

@nelsonst
Deu certo aqui irmão... Vc é o cara!!!

Muito Obrigado!!!