Help with Print Macro

[aaron061883]

I am looking for help with this print macro to be modified. It currently prints all active tabs but I need it to Print tables 1-3 and last active tab. there will be additional tabs added so I don't want it to print tables 4-... but does include the final active tab.
Any help making this happen would be great. Here is the macro that I am currently using which is great but need t be adjusted to exclude the sheets descried above.

Sub PDFprint()
'
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Replace(ThisWorkbook.FullName, ".xlsm", ".pdf"), OpenAfterPublish:=True
End Sub

[TMS]

Not sure what you mean by "last active sheet", but maybe this works:

Sub Macro2()

    Sheets(1).Select
    Sheets(Array("Sheet1", "Sheet2", "Sheet3", Sheets(Sheets.Count).Name)).Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\...\...\Book1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

End Sub

[aaron061883]

The last sheet constantly changes from 1-62 with the first PDF having sheet 1-3 and the final sheet "1"
then the next time its PDF same first 1-3 sheets and then final sheet "2" and so on. Sheet "1" is still active when PDF for sheet "2" is made.

The first part looks good but final sheet never has the same name.

[TMS]

The code selects the worksheets named Sheet1, Sheet2 and Sheet3 (always). The Sheets(Sheets.Count).Name will select the last sheet in the workbook, regardless of what it is called.

Change the sheet names as required apart from the last one.

Your description seems somewhat generic and I am unable to offer a specific solution based on the information you have provided.