Hi All
Tried a macro to sort column H,I,J to last data row, rows 1 are headers
the range are columns A to S to last data row
but getting a compile error
expected end with
Can anyone help
Tried a macro to sort column H,I,J to last data row, rows 1 are headers
the range are columns A to S to last data row
but getting a compile error
expected end with
Can anyone help
Code:
Sub testsort()
Dim LR As Long
With ActiveWorkbook.Worksheets("datatest")
LR = .Range("A" & Rows.Count).End(xlUp).Row.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("H1:A" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add Key:=.Range("I1:A" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add Key:=.Range("J1:A" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange .Range("A1:S" & LR)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub:confused: