Putting filters in Excel with VBA

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