This code exports the selected range as a PDF file.
VBA Code:
Sub ExportRangeToPDF()
Dim savePath As String
savePath = ThisWorkbook.Path & "\" & "Range.pdf"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard
End Sub