Dim koll(15, 6) As Integer ' количество деталей каждого вида за каждый рабочий день
Dim amt(15) As Integer 'количество деталей каждого вида за истекший период
Dim cena(15, 6) As Double 'стоимость одной изготовленной детали
 ----------------------
Sheets("Результат").Cells(21, 1) = "Название книги"

Public Sub Kurs()
Dim zakup_ceni(6, 5) As Double 'Закупочные цены
Dim urozhai(6, 5) As Double 'Урожай в центнерах'
Dim obsh(6) As Double 'Общий урожай каждой культуры за 5 лет
Dim doh(6, 5) As Double 'Доход по каждым культурам за каждый год
Dim obsh_doh(6) As Double 'Общий доход по каждым культурам за 5 лет
Dim obsh_doh_pyat As Double 'Общий доход колхоза за 5 лет
Dim yagod As Double 'Наименование культуры принесший максимальный доход за 5 лет
Dim max_kult As Integer 'Номер культуры
Dim i As Integer, j As Integer
For i = 1 To 6
For j = 1 To 5
zakup_ceni(i, j) = 0
urozhai(i, j) = 0
Next j
Next i
 
Sheets("Нач_д").Select
For i = 1 To 6
For j = 1 To 5
zakup_ceni(i, j) = Cells(3 + i, 1 + j)
urozhai(i, j) = Cells(3 + i, 6 + j)
Next j
Next i
 
Sheets("Результат").Select
Cells(1, 1) = "Начальные данные"
Cells(2, 1) = "Наименование фруктово-ягодных культур"
Cells(2, 2) = "Закупочные цены (руб.)"
Cells(2, 7) = "Урожай в центнерах"
Cells(2, 12) = "Общий урожай каждой культуры за 5 лет"
Cells(3, 2) = "2006 год"
Cells(3, 3) = "2007 год "
Cells(3, 4) = "2008 год "
Cells(3, 5) = "2009 год "
Cells(3, 6) = "2010 год "
Cells(3, 7) = "2006 год "
Cells(3, 8) = "2007 год "
Cells(3, 9) = "2008 год "
Cells(3, 10) = "2009 год "
Cells(3, 11) = "2010 год "
Cells(4, 1) = "1. Яблоня"
Cells(5, 1) = "2. Вишня"
Cells(6, 1) = "3. Слива"
Cells(7, 1) = "4. Чёрная смородина"
Cells(8, 1) = "5. Крыжовник"
Cells(9, 1) = "6. Клубника"
 
For i = 1 To 6
For j = 1 To 5
Cells(3 + i, 1 + j) = zakup_ceni(i, j)
Cells(3 + i, 6 + j) = urozhai(i, j)
obsh(i) = obsh(i) + urozhai(i, j)
Next j
Cells(3 + i, 12) = obsh(i)
Next i
 
Cells(12, 1) = "Результат в денежном эквиваленте"
Cells(13, 1) = " Наименование фруктово-ягодных культур "
 
Cells(13, 2) = "Доход по всем культурам за каждый год"
Cells(14, 2) = "2006 год "
Cells(14, 3) = "2007 год "
Cells(14, 4) = "2008 год "
Cells(14, 5) = "2009 год "
Cells(14, 6) = "2010 год "
Cells(14, 7) = "Общий доход по всем культурам за 5 лет"
Cells(15, 1) = "1. Яблоня"
Cells(16, 1) = "2. Вишня"
Cells(17, 1) = "3. Слива"
Cells(18, 1) = "4. Черная смородина"
Cells(19, 1) = "5. Крыжовник"
Cells(20, 1) = "6. Клубника"
 
For i = 1 To 6
For j = 1 To 5
doh(i, j) = zakup_ceni(i, j) * urozhai(i, j)
Cells(14 + i, 1 + j) = doh(i, j)
Next j
Next i
Cells(21, 4) = "Общий доход колхоза за 5 лет"
For i = 1 To 6
obsh_doh_pyat = obsh_doh_pyat + obsh_doh(i)
Cells(21, 7) = obsh_doh_pyat
Next i
Cells(23, 1) = "Наименование (номер) культуры, принесший максимальный доход за 5 лет" 
 
For i = 1 To 6
For j = 1 To 5
obsh_doh(i) = obsh_doh(i) + doh(i, j)
Cells(14 + i, 7) = obsh_doh(i)
If obsh_doh(i) > yagod Then
yagod = obsh_doh(i)
max_kult = i
Cells(23, 6) = max_kult
End If
Next j
Next i
End Sub