I am using this snippet from recorder.
Columns("O:O").Select
Dim SortO As Long
SortO = Range("O" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Worksheets("data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("data").Sort.SortFields.Add2 Key:=Range("O2:O" & SortO) _
...