Sub NewCXL.doc

Sub NewCXL() Windows(Format(Date - 1, mmddyy) _CHINA_OO_DETAILS).Activate Worksheets(Format(Date - 1, mmddyy) _CHINA_OO_DETAILS).Select Application.DisplayAlerts = False fname = ActiveWindow.Caption forms = ActiveSheet.Name Set ChF = Workbooks(fname).Sheets(forms) Range(Cells(2, 1), Cells(60000, 200)).Sort Key1:=Range(D1) Columns(X:X).Insert Shift:=xlToRight Range(X2:X [Q1048576].End(xlUp).Row).FormulaR1C1 = =RC[-1]/RC[-2] Columns(X:X).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Range(X2:X [Q1048576].End(xlUp).Row).NumberFormatLocal = 0% Rows(1:1).AutoFilter Rows(1:1).Select Selection.AutoFilter Field:=11, Criteria1:==HARDLINES, Operator:=xlOr, _ Criteria2:==HOME Selection.AutoFilter Field:=24, Criteria1:==80%, Operator:=xlAnd Rows(1:1).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Worksheets.Add ActiveSheet.Name = 80% Range(A1).Select ActiveSheet.Paste Sheets(80%).Select Sheets(80%).Copy Windows(Format(Date - 1, mmddyy) _CHINA_OO_DETAILS).Activate Sheets(Format(Date - 1, mmddyy) _CHINA_OO_DETAILS).Select Rows(1).Select Selection.AutoFilter Field:=11, Criteria1:==HARDLINES, Operator:=xlOr, _ Criteria2:==HOME Selection.AutoFilter Field:=24, Criteria1:==80%, Operator:=xlAnd Rows(2:2).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Selection.EntireRow.Delete Rows(1:1).AutoFilter Rows(1:1).AutoFilter Rows(1).Select Selection.AutoFilter Field:=24, Criteria1:==90%, Operator:=xlAnd Rows(1:1).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows(Book1).Activate Worksheets.Add ActiveSheet.Name = 90% Range(A1).Select ActiveSheet.Paste Windows(Format(Date - 1, mmddyy) _CHINA_OO_DETAILS).Activate Sheets(Format(Date - 1, mmddyy)