VBA custom sort to last row

[Mcstefan]

Hi,

I have this code that sorts my data - sortData based on column A - sortDistribGr

lastrow = Cells(Rows.Count, 2).End(xlUp).Row
sortData = "A6:AF"
sortDistribGr = "A6:A"
Range(sortData & lastrow).Sort key1:=Range(sortDistribGr & lastrow), order1:=xlDescending, Header:=xlNo

I would like to do a custom sort instead and the order would be column A - sortData = "A6:AF", column H - sortBr = "H6:H"
and then column N - sortSupervisor = "N6:N"

How do I adapt the code above?
Thanks

 

[RickXL]

Hi,

You can sort a maximum of three columns using that syntax. If you need more it gets a bit more complicated.

I would shorten things a bit, though:

Sub mySort()
    Dim r   As Range
    Set r = Range(Cells(Rows.Count, "A").End(xlUp), "AF6") '.Resize(, Cells(, "AF").Column)
    r.Sort _
        key1:=Range("A:A"), order1:=xlDescending, _
        key2:=Range("H:H"), order2:=xlDescending, _
        key3:=Range("N:N"), order3:=xlDescending, _
        Header:=xlNo
End Sub

Regards,