Dual Criteria Sort failing

[Ark68]

My sort isn't working ...

          With .Range("A13:R" & pl)
                .Sort key1:=.Range("R13"), order1:=xlAscending, Header:=xlNo, _
                    OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
                .Sort key2:=.Range("F13"), order2:=xlAscending, Header:=xlNo, _
                    OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption2:=xlSortNormal
            End With

The line in red is giving me a sort method of Range class failed".

Two things to note that may be problematic, and they in themselves are problems I don't know how to overcome if they are contributors to the error.
PL = 12, and there are no values in column F (but then again there are none in column R either and it passes that sort)

 

[Drrellik]

you said you have defined your var PL as your ending row number =12 is that the correct range

 

[Ark68]

Yes. PL in this case equals 12 because the dataset is empty. (Only two blank rows .. 12 and 13. If there was data, PL would be greater than 13.
The first sort criteria, similarly written, doesn't break with an error.

 

[Fluff]

It should be Key1 & Order1, not Key2 & order2

 

[Ark68]

Hmmmm, this is my bad. I don't think I've explained final expectation properly. Fluff, this was indeed the solution. I had originally started with that but changed it because the results were wrong. It turns out that I needed to switch the order of the sorts.

Thank you all.

 

[Fluff]

Glad we could help & thanks for the feedback.