Boa Tarde!!!
Se a sua intenção é colocar Mascara (Separadores) tanto para CNPJ qto para CPF, segue anexo.
Desta forma qualquer CNPJ/CPJ digitado no Range: “B”. Assume a mascara.

Abraços.

A máscara é só na "B12" mesmo, e já está feita.

Quando eu cito "VALIDAÇÃO", é a validação do CNPJ ou CPF se eles existem mesmo. Já está tudo funcionando conforme código no Módulo1 e na planilha "PRETENDIDO".

Queria saber se é possível fazer na mesma célula "B12" ( digitar tanto o CNPJ e CPF )

A planilha original está na planilha "ORIGINAL".

Sgue exemplo, considerando a celula B12 da aba Original:
Alterei considerando as condiçoes abaixo:
CNPJ: 14 posições
CPF: 11 posições
Entao se o usuario inserir 14 digitos procura o cnpj, caso contrario o cpf.
Substitua este codigo na aba original:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Dig, Nvar
  
    If Target.Address = Range("B12").Address Then
        If IsNumeric(Range("B12")) Then  'se não preencher o campo ignora

            If Len(Range("B12")) > 11 And Len(Range("B12")) <= 14 Then
                Dig = Right(Format(Range("B12"), "00000000000000"), 2)
                Nvar = Módulo1.DVCNPJ(Format(Range("B12"), "00000000000000"))
                If Dig = Nvar Then
                Else
                    Range("B12") = "CNPJ INVÁLIDO"
                End If

            Else
                If IsNumeric(Range("B12")) Then  'se não preencher o campo ignora
                    Dig = Right(Format(Range("B12"), "00000000000"), 2)
                    Nvar = Módulo1.DVCPF(Format(Range("B12"), "00000000000"))
                    If Dig = Nvar Then
                    Else
                        Range("B12") = "CPF INVÁLIDO"
                    End If
                                   
              End If
            End If
            
        End If
    End If
End Sub

Perfeito Basole!
Agradeço mais uma vez

Só uma coisa a mais.... se eu teclar delete na célula "B12" dá erro "intMais = intNumero * i" em "Function DVCPF(Cpf As String) As String" no Módulo.1.

É pelo motivo de ele só aceitar numeração? não entendi essa parte. É possível contornar isso?

Estou preocupado pois, o usuário é mais leigo do que eu. Vai que ele tecle delete ai....

Acrescente essas duas linhas no inicio do codigo que postei :
Para tratar essa situação e que atenderá a condição se a celula B12 estiver vazia.
Ou se for selecionada duas celuas.

   If Target.Count > 1 Then Exit Sub
  If Target.Value = Empty Then Exit Sub 

Funcionou perfeitamente!
Agradeço mais uma vez.
Um ótimo final de semana.