Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16/4/2009 by GRSpanaN
'
'
Cells.Select
Range("C1").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=10, Criteria1:="last stock is greater"
Selection.Copy
Sheets("Sheet3").Select
Sheets.Add
Sheets("Sheet3").Name = "Sheet3"
Cells.Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
End Sub
I have this code and would like to paste them to sheet 3 and create 10 more new sheets