бейсик. найдите ошибку

Сформировать массив B, уплотнив одномерный массив A(20), выбросив из него максимальный (max) и минимальный элементы (min). Элементы ис-ходного массива записать в ячейки рабочего листа “Лист1”,

Sub Ìàêðîñ1()
Sheets("Ëèñò1").Activate
Const n = 20
Dim A(1 To n) As Single
Dim B(1 To n) As Single
For i = 1 To n
A(i) = Cells(1, i)
Next i

max = -1E+20
kol = 0
For i = 1 To n
If A(i) > max Then
max = A(i)
kol = kol + 1
A(kol) = A(i)
Cells(6, 2) = "max=" & max

End If
Next i

min = 1E+20
kol = 0
For i = 1 To n
If A(i) < min Then
min = A(i)

B(kol) = A(i)

Cells(4, 4) = "min=" & min
End If
Next i

If kol = 0 Then
Cells(3, 1) = "óïë íåëüçÿ"
Else

For i = 1 To kol
Cells(8, i) = B(i)
Next i
End If
End Sub

название
авторизация
лист1

должен получиться новый массив без максимума и минимума