Const n = 5
Dim A(n, n)

Sub func()
Call zap

For i = 1 To n
j = Max(i)
Count = A(i, i)
A(i, i) = A(i, j)
A(i, j) = Count
Next i

Call vivod
End Sub

Function Max(i)
Max = 1
For j = 2 To n
If A(i, j) >= A(i, Max) Then Max = j
Next j
End Function

Sub zap()
For i = 1 To n
For j = 1 To n
A(i, j) = Cells(i, j)
Next j
Next i
End Sub

Sub vivod()
For i = 1 To n
For j = 1 To n
Cells(i + n + 2, j) = A(i, j)
Next j
Next i
End Sub