Помогите написать программу в VBA

[Irisha...]

Здравствуйте! Нам дали задание написать программу на языке VBA, которая выводит данные, выполняет расчет и выводит на экран результат в листе результат. Это я сделала, но помимо это нужно сделать кнопки (назначить созданный код кнопке на рабочем листе в своем макете), помощник, сортировки и диаграмму - и вот с этим у меня проблемы, подскажите пжл. То что уже сделано см ниже + вложение. Спасибо.
Sub Funct()
Dim cena(7) As Double
Dim koll(7, 5) As Integer
Dim zar(6) As Double
Dim koll_n(7) As Integer
Dim den As Integer
Dim zarpl As Double
Dim i As Integer, j As Integer

For i = 1 To 7
koll_n(i) = 0
Next

For j = 1 To 6
zar(j) = 0
Next j

zarpl = 0
den = 0

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

For i = 1 To 7
For j = 1 To 5
koll(i, j) = Cells(3 + i, 2 + j)
Next j
Next i

Sheets("Результат").Select
Cells(1, 1) = "Количество изготовленных деталей"
Cells(2, 1) = "Наименование изделия"
Cells(2, 2) = "Стоимость 1шт."
Cells(2, 3) = "Изготовлено"
Cells(3, 3) = "1-й день"
Cells(3, 4) = "2-й день"
Cells(3, 5) = "3-й день"
Cells(3, 6) = "4-й день"
Cells(3, 7) = "5-й день"
Cells(3, 8) = "Всего"
Cells(4, 1) = "болт"
Cells(5, 1) = "винт"
Cells(6, 1) = "гайка"
Cells(7, 1) = "шайба"
Cells(8, 1) = "шуруп"
Cells(9, 1) = "гвоздь"
Cells(10, 1) = "скрепка"

For i = 1 To 7
Cells(3 + i, 2) = cena(i)
For j = 1 To 5
Cells(3 + i, 2 + j) = koll(i, j)
koll_n(i) = koll_n(i) + koll(i, j)
Next j
Cells(3 + i, 8) = koll_n(i)
Next i

Cells(12, 1) = "Результат в денежном эквиваленте"
Cells(13, 1) = "Наименование изделия"
Cells(13, 2) = "Стоимость 1шт."
Cells(13, 3) = "Заработано"
Cells(14, 3) = "1-й день"
Cells(14, 4) = "2-й день"
Cells(14, 5) = "3-й день"
Cells(14, 6) = "4-й день"
Cells(14, 7) = "5-й день"
Cells(14, 8) = "Всего"
Cells(15, 1) = "болт"
Cells(16, 1) = "винт"
Cells(17, 1) = "гайка"
Cells(18, 1) = "шайба"
Cells(19, 1) = "шуруп"
Cells(20, 1) = "гвоздь"
Cells(21, 1) = "скрепка"
Cells(22, 1) = "ИТОГО"

For i = 1 To 7
For j = 1 To 5
Cells(14 + i, 2 + j) = koll(i, j) * cena(i)
zar(j) = zar(j) + koll(i, j) * cena(i)
zar(6) = zar(6) + koll(i, j) * cena(i)
Next j
Cells(14 + i, 2) = cena(i)
Cells(14 + i, 8) = cena(i) * koll_n(i)
Next i

For j = 1 To 5
Cells(22, 2 + j) = zar(j)
If zar(j) > zarpl Then
zarpl = zar(j)
den = j
End If
Next

Cells(22, 8) = zar(6)
Cells(23, 1) = "Заработок за неделю"
Cells(23, 5) = zar(6)
Cells(24, 1) = "День с максимальным заработком"
Cells(24, 5) = den
Cells(24, 6) = "Заработаю"
Cells(24, 8) = zarpl
End Sub