vba script sorteren

[moensk]

hieronder gedeelte van mijn script
nu wil ik dat hij sorteert in "arl(t, 0)" van laag naar hoog de waardes in "ar(j,1)" zijn getallen
graag jullie hulp

    'VBA voor bakwagen ritten
For j = 2 To UBound(ar)
    If ar(j, 5) = Sheets("info").Range("D1").Value And ar(j, 2) = "B" And ar(j, 17) = "VRE" Then
        ar1(t, 0) = ar(j, 1)
        ar1(t, 1) = ar(j, 12)
        ar1(t, 2) = ar(j, 6)
        ar1(t, 3) = ar(j, 7)
        ar1(t, 4) = ar(j, 21)
        ar1(t, 5) = ar(j, 9)
        t = t + 1
    End If
Next j
Sheets("info").Cells(3, 1).Resize(UBound(ar1) + 1, UBound(ar1, 2) + 1) = ar1

 

[spaarie]

Geheel onduidelijk... a.d.h.v. de code denk ik dat alleen snb begrijpt wat je probleem is.