Ordenação por linhas – Orientation:=xlLeftToRight

Como se pode ordenar um range dinâmico, com o tipo de ordenação na horizontal (por linha) e da direita para a esquerda?

Tomemos o seguinte exemplo demonstrativo da pretensão e do consequente resultado:

O Código:

Sub SortRow()
'JRod
'
'Copyright 2007
   Dim R, RowNum As Long
   RowNum = ActiveSheet.UsedRange.Rows.Count
   For R = 2 To RowNum + 1
    Range("A" & R & ":E" & R).Sort key1:=Range("A" & R), _
        Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlLeftToRight
   Next R
End Sub