'
Option Explicit
'
Sub abc()
Dim i, j, k, t, a
a = [a1].CurrentRegion.Value
For i = 2 To UBound(a)
For j = 2 To UBound(a, 2) - 1
For k = j + 1 To UBound(a, 2)
If a(i, j) > a(i, k) Then
t = a(i, j): a(i, j) = a(i, k): a(i, k) = t
End If
Next
Next
Next
[a1].Offset(, UBound(a, 2) + 1).Resize(UBound(a), UBound(a, 2)) = a
End Sub