Segue sugestão. Se um arquivo "ENTRADA E SAÍDA DE DADOS " & .Range("E1").Value".pdf" ja existir,
a macro acrescenta uma numeração (1), (2), (3) ... ex.: ENTRADA E SAÍDA DE DADOS " & ActiveSheet.Range("E1").Value(1).pdf
e salva.

Sub Salvar_Pdf_MesmoNome()

Dim nome As String
Dim k As Integer
Dim fName As String


If activeSheet.Range("E1") = "" Then MsgBox "Preencha todos os dados": Exit Sub

nome = "C:UsersUsuárioDesktopENTRADA E SAÍDA DE DADOS " & ActiveSheet.Range("E1").Value & ".pdf"

If Len(Dir(nome, vbNormal)) = 0 Then
      GoTo Fin
      Else
         fName = nome
         Do Until Len(Dir(nome, vbNormal)) = 0
            k = k + 1
            nome = VBA.Replace(VBA.LCase(fName), ".pdf", "(" & k & ").pdf")
            Loop
Fin:
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    
End Sub

Segue sugestão. Se um arquivo "ENTRADA E SAÍDA DE DADOS " & .Range("E1").Value".pdf" ja existir,
a macro acrescenta uma numeração (1), (2), (3) ... ex.: ENTRADA E SAÍDA DE DADOS " & ActiveSheet.Range("E1").Value(1).pdf
e salva.

Sub Salvar_Pdf_MesmoNome()

Dim nome As String
Dim k As Integer
Dim fName As String


If activeSheet.Range("E1") = "" Then MsgBox "Preencha todos os dados": Exit Sub

nome = "C:UsersUsuárioDesktopENTRADA E SAÍDA DE DADOS " & ActiveSheet.Range("E1").Value & ".pdf"

If Len(Dir(nome, vbNormal)) = 0 Then
      GoTo Fin
      Else
         fName = nome
         Do Until Len(Dir(nome, vbNormal)) = 0
            k = k + 1
            nome = VBA.Replace(VBA.LCase(fName), ".pdf", "(" & k & ").pdf")
            Loop
Fin:
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    
End Sub

Olá Basole, obrigado pela ajuda.
Mas está ocorrendo o seguinte erro: "Erro em tempo de execução '1004': O documento não foi salvo, talvez esteja aberto ou pode ter ocorrido um erro durante a gravação".

O erro se manifesta nessa parte do código.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

O que pode estar gerando erro?

Este error acredito que seja por causa do diretorio. Verifique se o caminho esta correto e altere no codigo caso não esteja: ("C:UsersUsuárioDesktop")

De qq forma, eu acrescentei no codigo um tratamento de erro para caso a macro não encontrar o referido diretorio.

Sub Salvar_Pdf_MesmoNome_2()

Dim nome As String
Dim k As Integer
Dim fName As String
Dim sPath As Variant

sPath = "C:UsersUsuárioDesktop"

If Dir(sPath, vbDirectory) = "" Then MsgBox "Diretorio não encontrado! verifique!": Exit Sub

If ActiveSheet.Range("E1") = "" Then MsgBox "Preencha todos os dados": Exit Sub

nome = sPath & "ENTRADA E SAÍDA DE DADOS " & ActiveSheet.Range("E1").Value & ".pdf"
  
If Len(Dir(nome, vbNormal)) = 0 Then
      GoTo Fin
      Else
         fName = nome
         Do Until Len(Dir(nome, vbNormal)) = 0
            k = k + 1
            nome = VBA.Replace(VBA.LCase(fName), ".pdf", "(" & k & ").pdf")
            Loop
            End If
Fin:
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    
End Sub

Basole, perfeito. É exatamente o que eu precisava.

Apenas tentei alterar para UCase na intenção de padronizar o nome dos relatórios em maiúsculo mas não deu certo. Deu estouro de memória na expressão k = k + 1.

No mais, está funcionando a contento.

Obrigado!

Coloque o ucase neste trecho do codigo:

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=VBA.UCase(nome), Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

Basole

Perfeito. Resolvido.

Obrigado!