Задача с массивом (VBA)

[mad_moon]

В произвольном массиве E из n элементов найти наименьший элемент и записать его на первое место нового масива, а затем дописать в новый массив элементы, значение которых не меньше заданной константы (E >= const)

Начальные данные, что необходимо ввести, следует предварительно записать в избранные ячейки листа MS Excel и оттуда ввести их в программу. Выведение данных осуществить в другие ячейки листа.

Массив ввела, минимальное нашла, а вот дальше - ступор((

Помогите пожалуйста.

Заранее спасибо!

То что у меня получилось:

Sub Rabota()
Dim i As Integer, A() As Integer, n As Integer, r As Integer
Dim min As Single
r = Val(InputBox("Введите номер ячейки", "Окно ввода", "1"))
n = Val(InputBox("Введите размерность массива"))
ReDim A(n)
For i = 1 To n
A(i) = Cells(r, 1)
r = r + 1
Next i
min = 1E+38
For i = 1 To n
If A(i) < min Then min = A(i)
Next i
Debug.Print "min ="; min


End Sub