Сформировать на рабочем листе одномерный массив, состоящий из положительных, отрицательных, и нулевых элементов. Используя VBA, среди отрицательных элементов массива найти максимальный элемент. Создать новый массив, состоящий из индексов элементов исходного массива,значения которых найденному максимальному значению.и создать кнопку для запуска процедуры
Необходимо выполнить по подобию такого:

Public Sub Задание3()
Dim A() As Single, B() As Single
Dim n As Integer
Dim i As Integer
Dim k As Integer
n = Range("B3", Range("B3").End(xlDown)).Count
ReDim A(1 To n) As Single
For i = 1 To n
A(i) = Cells(i + 2, 2)
Next i
Max = -99999
For i = 1 To n
If A(i) > Max Then
Max = A(i)
End If
Next i
Range("E2") = Max
Sum = 0
Kol = 0
For i = 1 To n
Sum = Sum + A(i)
Kol = Kol + 1
Next i
sr = Sum / Kol
Range("F2") = sr
k = 0
For i = 1 To n
If A(i) > sr Then
A(i) = Max
End If
k = k + 1
ReDim Preserve B(k) As Single
B(k) = A(i)
Next i
Range("D3").End(xlDown).Clear
For i = 1 To k
Cells(i + 2, 4) = B(i)
Next i
End Sub