Sub prodaga_igr()
Dim cena(5, 4) As Double 'стоимость игры в каждом месяце
Dim kol(5, 4) As Integer 'количество игр в каждом месяце
Dim dohod_1(5) As Double 'доход от каждой игры за 1 месяц
Dim dohod_n(5, 4) As Double 'доход за каждый месяц по всем играм
Dim dohod_o As Double 'доход за 4 месяца от всех игр
Dim igra As Integer ' игра с наименьшим доходом
Dim i As Integer, j As Integer ' переменные

For i = 1 To 5
dohod_1(i) = 0
Next

For j = 1 To 8 Step 2
dohod_n(i, j) = 0
Next

dohod_o = 0

Sheets("Нач_д").Select
For i = 1 To 5
For j = 1 To 8 Step 2
cena(i, j) = Cells(3 + i, 1 + j)
Next j
Next i

For i = 1 To 5
For j = 1 To 8 Step 2
kol(i, j) = Cells(3 + i, 2 + j)
Next j
Next i

Sheets("Результат").Select
Cells(1, 1) = "Доход за первый месяц"
Cells(2, 1) = "Наименование игры"
Cells(2, 2) = "Первый месяц"
Cells(3, 2) = "Цена"
Cells(3, 3) = "Продано"
Cells(3, 4) = "Доход"

For i = 1 To 5
Cells(3 + i, 2) = cena(i, j)
Cells(3 + i, 3) = kol(i, j)
dohod_1(i) = cena(i, j) * kol(i, j)
Cells(3 + i, 4) = dohod_1(i)
Next i

End Sub