Macro to create multiple tables from one table.

[VivatJesus]

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"

[Charles]

VivatJesus,

Welcome to the forum.
Copy this code to a module and test.
If you look at the code I made the assumption the the data is in sheet1.
You can change it to your sheet name. Also from your request I show the New sheet will be named as the filter critical1. That is "8523".

Please Login or Register  to view this content.