Private Sub Big_To_Smaal_Click()
  Rem Created By Salim On 2/12/2020
  Rem Sort List For ListBox
Dim Ro%, i%, S#
Dim Sh As Worksheet
Dim Lst As Object
Set Sh = Sheets("ورقة1")
Me.ListBox1.Clear
Dim arr
Set Lst = CreateObject("System.Collections.SortedList")
Ro = Sh.Cells(Rows.Count, 4).End(3).Row
 For i = 2 To Ro
 Lst.Add Sh.Cells(i, 4).Value - (1 / (Cells(i, 4).Row * 1000)), i - 1
 Next
 ReDim arr(Lst.Count - 1, 1)
 For i = 0 To Lst.Count - 1
  arr(i, 0) = Int(Lst.GetKey(Lst.Count - 1 - i)) + 1
  arr(i, 1) = Lst.GetByIndex(Lst.Count - 1 - i)
 Next
With Me.ListBox1
For i = LBound(arr, 1) To UBound(arr, 1)
  .AddItem
  .List(.ListCount - 1, 0) = i + 1
  .List(.ListCount - 1, 1) = Sh.Cells(arr(i, 1) + 1, 3)
  .List(.ListCount - 1, 2) = arr(i, 0)
   S = S + Val(arr(i, 0))
  Next
  .AddItem
  .List(.ListCount - 1, 0) = "============="
  .List(.ListCount - 1, 1) = "============="
  .List(.ListCount - 1, 2) = "============="
  
  .AddItem
  .List(.ListCount - 1, 0) = ""
  .List(.ListCount - 1, 1) = "Sum Off ALL"
  .List(.ListCount - 1, 2) = Format(S, "###,###,###.00")
 End With
End Sub