Filters can be placed on specific columns in Excel with the following VBS. Passive and shopping locations are options that we do not want to appear as printouts.
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = False
objXLApp.DisplayAlerts = False
Set objXLWb = objXLApp.Workbooks.Open("C:\Robusta\Output\Robusta_072021_End.xlsx")
objXLWb.Worksheets(2).Range("L2").AutoFilter 7,"<>..."
objXLWb.Worksheets(2).Range("L2").AutoFilter 31,"<>..."
objXLWb.Save
objXLWb.Close
objXLApp.Quit