O codigo pra gerar o pdf é relativamente simples, como vc pode ver abaixo:

Sub PDF()

Dim Wmap As Worksheet
Dim W As Workbook
Dim Arq As String

Application.ScreenUpdating = False

Set Wmap = Sheets("Mapa Transaccionados")
Set W = Workbooks("Ourinvest OVAR")
    Arq = "Relatório de" & " - " & Format(Range("C5").Value, "DD-MM-YYYY") & " - " & Format(Range("C5").Value, "DD-MM-YYYY")

ChDir "C:Backup"

 Wmap.ExportAsFixedFormat Type:=xlTypePDF, _
       Filename:="C:Backup" & Arq & ".pdf", _
                   Quality:=xlQualityMinimum, _
                  IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=False
    
  MsgBox "PDF Gerado com Sucesso", _
                                 vbOKOnly, _
                                 "Atenção"
                                 
Application.ScreenUpdating = True

End Sub

Tente adaptar a sua necessidade

Crie uma pasta em C: para que seja salvo o arquivo pdf

Excelente me ajudou bastante. Obrigado MPrudencio.