Sub sort(ByRef arrayname() As Variant)
Dim SortColumn1 As Integer
Dim j As Integer
Dim y As Integer
Dim t As Variant
Dim condition1 As Boolean
SortColumn1 = 1
For i = LBound(arrayname, 1) To UBound(arrayname, 1) - 1
For j = LBound(arrayname, 1) To UBound(arrayname, 1) - 1
condition1 = arrayname(j, SortColumn1) < arrayname(j + 1, SortColumn1)
If condition1 Then
For y = LBound(arrayname, 2) To UBound(arrayname, 2)
t = arrayname(j, y)
arrayname(j, y) = arrayname(j + 1, y)
arrayname(j + 1, y) = t
Next y
End If
Next
Next
End Sub