Option Explicit
Sub EnrPDF()
'
'
Dim Rep As String
Rep = "C:\Users\XXX\Desktop\"
Rep = Rep & Range("B1").Value & "_" & Range("B9").Value & ".pdf"
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rep, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub