Ordinamento grafico a barre - senza ordinare i dati

Option Explicit

Sub Riordina()
'assegna i dati a varibili
'riordina le variabili dei valori numerici
'assegna al grafico dette variabili

Dim ur As Long, i As Long, j As Long
Dim asX(), asY(), temp1, temp2
ur = Cells(Rows.Count, 5).End(xlUp).Row
ReDim asX(1 To ur - 5)
ReDim asY(1 To ur - 5)
For i = 6 To ur
  asX(i - 5) = Cells(i, 5)
  asY(i - 5) = Cells(i, 6)
Next i
For i = 1 To UBound(asX) - 1
  For j = i To UBound(asX)
    If asY(i) < asY(j) Then
      temp1 = asY(i)
      temp2 = asX(i)
      asY(i) = asY(j)
      asX(i) = asX(j)
      asY(j) = temp1
      asX(j) = temp2
    End If
  Next j
Next i
ActiveSheet.ChartObjects(1).Activate
With ActiveChart
  .SeriesCollecti0n(1).Values = Array(asY())
  .SeriesCollecti0n(1).XValues = Array(asX())
End With
Cells(1, 1).Select
End Sub