Нахождение максимального числа, макрос - VBA

Формулировка задачи:

Доброго времени суток. Помогите пожалуйста написать макрос. У нас есть столбец А1:A10 там находятся значения, допустим: 7 9 10 3 5 1 6 7 3 12 Нужно сравнить ячейки и выписать максимальные значения пока не упрется в минимальную, и так далее. Максимальные значения выписываются в отдельный столбец. Заранее большое спасибо!

Решение задачи: «Нахождение максимального числа, макрос»

textual
                            Листинг программы 
                        

                            Sub ss()
   Dim i As Integer, r As Integer
   r = 1
   For i = 1 To 10
      Cells(r, 3) = Cells(i, 1)
      If Cells(i, 1) > Cells(i + 1, 1) Then r = r + 1
   Next i
End Sub
                        