Sort with a range - R1C1 reference type!

[wwj]

Code: Select all

    Sheets(outSht).Select
    Sheets(outSht).Activate
    totalRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' Sort by Drain Q
    ActiveSheet.Range(Cells(2, 1), Cells(outRow, 11)).Sort  _
         Key1:=Cells(1, 11), Order1:=xlDescending