I want to create a 3 page pdf with 3 different ranges in the same spreadsheet.

How can I do this?

Sub Create3PagePDF()

Dim file_name As Variant
file_name = Application.GetSaveAsFilename(FileFilter:="Adobe PDF File_ (*.pdf), *.pdf")
ActiveSheet.PageSetup.PrintComments = -4142

    Range("B15:AA80").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=file_name, Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub
I am trying to use an array of ranges but I cant' get it to work!

The 3 or more ranges I want to save to the same PDF file are

Range("B15:AA80"), Range("B85:AA145") and Range("B145:200AA")