Заменить отрицательные элементы массива нулями. язык vba

Попробуй это:
Randomize
Dim massiv(10) As Integer
Dim stroka As String
For i = 0 To 10
massiv(i) = Rnd * 100 - 50
Next i
For i = 0 To 10
If massiv(i) < 0 Then massiv(i) = 0
stroka = stroka & massiv(i) & vbCrLf
Next i
MsgBox stroka

Sub Calculate()
Dim Cols As Variant
Dim begin_row As Integer
Dim end_row As Integer
begin_row = 2
end_row = 6
Cols = Array(1, 2, 3, 4, 5)
For Each Col In Cols
If (Cells(begin_row, Col).Value < 0) Then
Cells(end_row, Col).Value = 0
Else
Cells(end_row, Col).Value = Cells(begin_row, Col).Value
End If
Next Col
End Sub