The process of filtering a single column with the following VBS takes place here.
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = False
objXLApp.DisplayAlerts = False
Set objXLWb = objXLApp.Workbooks.Open("C:\Users\user\Desktop\Testler\Deneme.xlsx")
objXLWb.Worksheets(1).Range("L2").AutoFilter 10,"=Accessorize"
objXLWb.SaveAs "C:\Users\user\Desktop\072021_End.xlsx", 51
objXLWb.Close
objXLApp.Quit