problem when sorting code

[anilg0001]

when i am trying to sort range N:O
N1 and O1 have headers when i am using this comment
it sorted the entire range means the heading is also sorted

Sub test()
Columns("n:o").Select
Selection.Sort Key1:=Range("n2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

End Sub

anyone correct this?

[Debraj Roy]

Sort is member of Worksheet, not range.

Try this.

Sub Macro1()

    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("N:O")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[ankitparate]

try this

Sub Macro1()
    Range("N1").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("N2:N11") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("O2:O11") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("N1:O11")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[anilg0001]

i use this way to solve
Range("N2:O100000").Select '100000 for sample
Selection.Sort Key1:=Range("n2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

[ankitparate]

use Header:=xlNo
and remove OrderCustom:=1

then run the code.

[Debraj Roy]

Glad that you solved this...