Hello,

I'm trying to create multiple worksheets with filtered information an original source table. I run the macro and it is not pasting the filter information in the new worksheets. Here is code, can somebody help me on why the info is not being pasted?

ActiveWindow.SmallScroll Down:=-3
ActiveCell.Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$N$18604").AutoFilter Field:=1, Criteria1:="8523"
ActiveWindow.SmallScroll Down:=-3
ActiveCell.Range("A1:N18001").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "8523"