Следующий код экспортирует выбранный вами лист в PDF:
FPath = C:\Users\HomeUser\Desktop"
'set path
FName = "NewFilename.pdf"
'set filename
'EXPORT AS PDF
FName = FPath & "\" & FName
Sheets("Sheet1").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False