Macro VBA para enviar CPF e CNPJ para Área de Transferência removendo os caracteres especiais

CopiarCnpj.bas

Sub RemoverFormatoECopiar()
    Dim textoOriginal As String
    Dim novoTexto As String
    Dim contador As Integer
    Dim areaDeTransferencia As New MSForms.DataObject
    
    textoOriginal = ActiveCell.Value
    
    For contador = 1 To Len(textoOriginal)
        Dim caractere As String
        caractere = Mid(textoOriginal, contador, 1)
        If IsNumeric(caractere) Then
            novoTexto = novoTexto & caractere
        End If
    Next

    areaDeTransferencia.SetText novoTexto
    areaDeTransferencia.PutInClipboard
End Sub