Sub Swap()
Dim r As Range, A As Variant
Dim i As Integer, im As Double, n As Integer, t As Double
n = 15
Set r = Range(Cells(1, 1), Cells(1, n))
A = r
im = 1
For i = 2 To n
If A(1, i) > A(1, im) Then
im = i
End If
Next i
t = A(1, im)
A(1, im) = A(1, n)
A(1, n) = t
Set r = Range(Cells(2, 1), Cells(2, n))
r = A
End Sub
На лист в ячейки А1 - О1 заносим исходные 15 чисел
На этот же лист через проект помещаем макрос и запускаем.
Результат будет в ячейках А2 - О2
