HEY!.....
im a newbie in macros....
and i need help......
i want to filter the "COMPARISON" sheet by it's column "CpK" with condition CpK<1.67.......
afterwards, i need to copy the whole data(all columns) to the "CpK" sheet...
then with the same process but the condition is Cp<10 copy, then paste to the "Cp" sheet.......

i hope it will be solved.....

*im sorry i couldn't attach the file due to it size

Sub cpk_sum()
'
' cpk_sum Macro
'

'
    Sheets("COMPARISON").Select
    Range("A2:O2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$O$101").AutoFilter Field:=6, Criteria1:="<1.67", _
        Operator:=xlAnd
    Range("$A$1:$O101").Select
    Range("A2").Activate
    Selection.Copy
    Sheets("CpK<1.67").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("COMPARISON").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select
    Sheets("CpK<1.67").Select
    ActiveWindow.ScrollColumn = 2
    Range("G:G,K:K").Select
    Range("K2").Activate
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select
End Sub