Well, that makes life a lot easier! I am not familiar with power query. Does it bring the data into an Excel table? If it does, then columns added immediately to the right of the returned data will have their formulas "memorized" and copied down for each row.

Slicers are easy. Select a cell in the returned data. Select Insert -> Slicer. You will get a list of column headers for which you can create a slicer. Also if you select a slicer and look in slicer options you can do a lot of things to make it look better.

As for publishing as a PDF, here's the macro I recorded.
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\dflak\Temp\I014 Last Used IVC Code.pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
I would not depend on ActiveSheet. Use Sheets("Sheet Name") instead. The only other thing is to change the file name to something you want. Generally I "compute" the file name based on a date stamp either in the code or on the spreadsheet and read it in with Range().