Loop by criteria - excel

Question

Can anyone helps me please, I'm newbie to using macro :)
I want to loop my macro by criteria, ex : criteria 1 & 2
in this case I just define 2 criteria, and some case I have 20 criteria
So I want to filter criteria 1, and I copy some rows & column and make new file and save to specific folder and the name same with the criteria, and I want to repeat it with different criteria and different name file.
Filter I want to loop
This is my Code, I hope someone can help me,
Sub Converter()
Sheets("SHEET INPUT").Select
ActiveSheet.Range("$A$2:$AQ$4652").AutoFilter Field:=22, Criteria1:="<>"
ActiveSheet.Range("$A$2:$AQ$4652").AutoFilter Field:=5, Criteria1:="1"
Range("W2:AQ2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Columns.AutoFit
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "m/d/yyyy"
Range("N1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "m/d/yyyy"
Range("R1").Select
ActiveWorkbook.SaveAs Filename:="C:\Users\BJ900265\Documents\Z-Spam File\Converter Temap\PO 1.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
I've seen several tutorials and I can't found what I want

Answer 1

I would suggest not using excel filter but filtering in own loop while/for. I'm also newbie so this approach is based on low experience, but I can imagine it being easy to write. U can easily control number/name of criterias/WB then.

Answer 2

I can give you the whole idea of a loop. For the details you just have to put anything you wrote inside the loop.
You can use any kind of loop (Do-While/Do-Until/For) To this purpose. I would suggest For Loop:
First you have to count how many times your For Loop wants to be repeated, in this case it seems to be number of rows in your desired column (Criteria).To count number of rows in your desired column you can make a Range of Cells under your column header (Criteria) then Count number of this Range cells.
Let's say the column you want to count number of cells bellow is Trigger CPS 1, Then you can count the cells below it this way:
ActiveSheet.Range(Range("A3"),Range("A3").End(xlDown)).Cells.Count
So To this point you have your i value for your For Loop:
All you have to do is to put your Selecting, Copying and Pasting operations inside this loop.