Проблемы с кодом

Sub Выполнить расчет()
'Обьявление переменных
End Sub
Dim urozhay(7, 3) As Integer 'Собранный урожай
Dim cena(7, 3) As Single 'закупочная цена
Dim urozhay_ob(7) As Integer
Dim dohod_brigada(7) As Single
Dim dohod_god(3) As Single
Dim dohod_objiy As Single 'Доход каждой бригады за 3 года
Dim max As Single
Dim Index As Integer
Dim i, j As Integer
'Присваивание значений
For i = 1 To 7
For j = 1 To 3
      urozhay(i, j) = Cells(i + 5, j + 1)
    MsgBox (urozhay(i, j))
  Next
      cena(i, j) = Cells(i + 5, j + 7)
    MsgBox (cena(i, j))
  Next
      urozhay_ob(i) = urozhay_ob(i) + urozhay(i, j)
    MsgBox (urozhay_ob(i) = urozhay_ob(i) + urozhay(i, j))
  Next
      dohod_kultura(i) = dohod_kultura(i) + urozhay(i, j) * cena(i, j)
    MsgBox (dohod_kultura(i) = dohod_kultura(i) + urozhay(i, j) * cena(i, j))
Next
Cells(i + 5, 8) = urozhay_ob(i)
'После выхода из внутреннего цикла выведем на экран в 8 столбец массив urozhay_ob
Cells(i + 5, 9) = dohod_kultura(i)
'В 9 столбец выведем массив dohod_kultura
Next i
For j = 1 To 3 'внешний цикл для 3 лет
For i = 1 To 7 'внутренний цикл для 7 бригад
dohod_god(j) = dohod_god(j) + urozhay(i, j) * cena(i, j)
'Просуммируем доход по всем бригадам за каждый год как произведение массива
'урожая в центнерах за каждый год по всем 7 бригадам и массива закупочных цен
'по каждой культуре по всем 3 годам
Next i
Cells(14, j + 7) = dohod_god(j)
'В 14 строку, начиная с 8 столбца, выведем данные о доходе за каждый год
dohod_objiy = dohod_objiy + dohod_god(j)
'Одновременно просуммируем общий доход за 3 года
Next j
Cells(16, 8) = dohod_objiy
'В 16 строку 8 столбца помещаем общий доход за 3 года
'Для того, чтобы найти наименование бригады, принесшей максимальный доход за 3 года
'необходимо найти максимальное значение дохода в массиве доходов по каждой бригаде 'за все 3 года
max = dohod_kultura(1)
'пусть максимумом будет первый элемент массива
For i = 1 To 7
'Количество сравнений равно количеству элементов в массиве,
'на первом шаге сравниваем текущий элемент с самим собой
If max <= dohod_kultura(i) Then
'Тогда, если максимум меньше или равен текущему элементу массива
max = dohod_kultura(i)
'максимумом становится текущий элемент массива
Index = i
'запоминаем в переменную Index номер элемента массива, в котором
'содержится максимум
End If
Next i
Cells(18, 9) = Cells(Index + 5, 1)
'В 18 строку 9 столбца выводим соответствующее (по номеру строки) название бригады,
'принесшее максимальный доход