Листинг программы. 
Разрабока программы

Sub kr_Click ().

'объявляем переменные.

Dim i As Integer, j As Integer, a As Integer 'вспомогательные переменные.

Dim kol (17, 6) As Integer ' количество проданных пуговиц.

Dim cena (17, 6) As Double 'цена пуговиц.

Dim viruchka (17, 6) As Double 'выручка.

Dim viruchkaM (6) As Double 'выручка за каждый месяц.

Dim viruchka3 (17) As Double 'выручка за первые 3 месяца по всем пуговицам.

Dim dohod As Double 'доход от продаж.

Dim pugovici (17) As String 'наименование пуговиц.

Dim max As Double 'максимальный доход в первом месяце.

'присваиваем значение 0 переменным.

For i = 1 To 6.

viruchkaM (i) = 0.

Next.

For i = 1 To 17.

viruchka3 (i) = 0.

Next.

max = 0.

dohod = 0.

'считываем начальные данные.

Sheets («Нач_д»).Select.

'заполняем массив с наименованием пуговиц.

For i = 1 To 17.

pugovici (i) = Cells (i + 3, 1).

Next i.

'заполняем массив с количеством проданных пуговиц в двумерном цикле.

For i = 1 To 17.

For j = 1 To 6.

kol (i, j) = Cells (3 + i, j * 2).

Next j.

Next i.

'заполняем массив с ценами в двумерном цикле.

For i = 1 To 17.

For j = 1 To 6.

cena (i, j) = Cells (3 + i, 1 + j * 2).

Next j.

Next i.

'создаём необходимые ячейки на листе «Результат».

Sheets («Результат»).Cells (1, 1) = «Продажа пуговиц».

Sheets («Результат»).Cells (2, 1) = «Наименование пуговиц».

Sheets («Результат»).Cells (2, 2) = «1-й месяц».

Sheets («Результат»).Cells (2, 4) = «2-ой месяц».

Sheets («Результат»).Cells (2, 6) = «3-й месяц».

Sheets («Результат»).Cells (2, 8) = «4-й месяц».

Sheets («Результат»).Cells (2, 10) = «5-й месяц».

Sheets («Результат»).Cells (2, 12) = «6-й месяц».

Sheets («Результат»).Cells (3, 2) = «кол-во».

Sheets («Результат»).Cells (3, 3) = «цена».

Sheets («Результат»).Cells (3, 4) = «кол-во».

Sheets («Результат»).Cells (3, 5) = «цена».

Sheets («Результат»).Cells (3, 6) = «кол-во».

Sheets («Результат»).Cells (3, 7) = «цена».

Sheets («Результат»).Cells (3, 8) = «кол-во».

Sheets («Результат»).Cells (3, 9) = «цена».

Sheets («Результат»).Cells (3, 10) = «кол-во».

Sheets («Результат»).Cells (3, 11) = «цена».

Sheets («Результат»).Cells (3, 12) = «кол-во».

Sheets («Результат»).Cells (3, 13) = «цена».

'выводим названия пуговиц.

For i = 1 To 17.

Sheets («Результат»).Cells (3 + i, 1) = pugovici (i).

Next i.

'выводим цены в двумерном цикле.

For i = 1 To 17.

For j = 1 To 6.

Sheets («Результат»).Cells (3 + i, 1 + j * 2) = cena (i, j).

Next j.

Next i.

'выводим количество проданных пуговиц в двумерном цикле.

For i = 1 To 17.

For j = 1 To 6.

Sheets («Результат»).Cells (3 + i, j * 2) = kol (i, j).

Next j.

Next i.

'рассчитываем выручку, выручку по каждому месяцу и общий доход в двумерном цикле.

For i = 1 To 17.

For j = 1 To 6.

viruchka (i, j) = kol (i, j) * cena (i, j).

viruchkaM (j) = viruchkaM (j) + viruchka (i, j).

dohod = dohod + viruchka (i, j).

Next j.

Next i.

'рассчитываем выручку за 3 месяца по каждому виду пуговиц в двумерном цикле.

For j = 1 To 3.

For i = 1 To 17.

viruchka3 (i) = viruchka3 (i) + viruchka (i, j).

Next i.

Next j.

'создаём необходимые ячейки на листе «Результат».

Sheets («Результат»).Select.

Sheets («Результат»).Cells (24, 1) = «Наименование пуговиц».

Sheets («Результат»).Cells (42, 1) = «Всего за месяц».

Sheets («Результат»).Cells (24, 2) = «1-й месяц».

Sheets («Результат»).Cells (24, 3) = «2-ой месяц».

Sheets («Результат»).Cells (24, 4) = «3-й месяц».

Sheets («Результат»).Cells (24, 5) = «4-й месяц».

Sheets («Результат»).Cells (24, 6) = «5-й месяц».

Sheets («Результат»).Cells (24, 7) = «6-й месяц».

Sheets («Результат»).Cells (24, 8) = «всего за 3 месяца».

'выводим названия пуговиц.

For i = 1 To 17.

Sheets («Результат»).Cells (24 + i, 1) = pugovici (i).

Next i.

'выводим выручку в двумерном цикле.

For i = 1 To 17.

For j = 1 To 6.

Sheets («Результат»).Cells (24 + i, 1 + j) = viruchka (i, j).

Next j.

Next i.

'выводим выручку по каждому месяцу.

For j = 1 To 6.

Sheets («Результат»).Cells (42, 1 + j) = viruchkaM (j).

Next.

'выводим выручку за 3 месяца по каждому виду пуговиц.

For i = 1 To 17.

Sheets («Результат»).Cells (24 + i, 8) = viruchka3 (i).

Next i.

'создаём необходимые ячейки на листе «Результат».

Sheets («Результат»).Cells (44, 1) = «Общий доход».

Sheets («Результат»).Cells (46, 1) = «Наибольшую прибыль за 1-й месяц принёсли».

'рассчитываем пуговицы принёсшие наибольшую прибыль в цикле, с условием.

For i = 1 To 17.

If max < viruchka (i, 1) Then.

max = viruchka (i, 1).

a = i.

End If.

Next i.

'вывод результатов.

Sheets («Результат»).Cells (44, 4) = dohod.

Sheets («Результат»).Cells (46, 4) = pugovici (a).

End Sub.