Sorting Macro

[naushin]

I need help!

I need a macro that lets me sort column I in Ascending order and then Column N in Ascending order.

I tried record a macro, and that works fine, however, I have multiple spreadsheets with varied rows (different row counts) that it only sorts until row 233 on the other sheets that have more rows... help?

here's my macro:

Sub Macro3()
'
' Macro3 Macro
'
'
ActiveWorkbook.Worksheets("Pending").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Pending").Sort.SortFields.Add Key:=Range("I2:I233" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Pending").Sort.SortFields.Add Key:=Range("N2:N233" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Pending").Sort
.SetRange Range("A1:O233")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Andrew Poulsom]

Try:

Sub Test()
    With ActiveWorkbook.Worksheets("Pending")
        .Range("A1").CurrentRegion.Sort Key1:=.Range("I2"), Order1:=xlAscending, Key2:=.Range("N2") _
            , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
            , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
         xlSortNormal
    End With
End Sub

 

[naushin]

Thank you Andrew Appreciate your help!