Суммирование из выборки

[Sandman2010]

Задание 1 – На рабочем листе Excel в столбцах A-D (начиная с ячейки A1) введены данные о контрактах на поставку некоторых товаров: в столбце A - номера контрактов, в столбце B – названия товаров, в столбце C – количество товара, в столбце D – цена единицы товара (в данном контракте). Может быть указано несколько контрактов на поставку одного и того же товара.
На рабочем листе расположены также кнопка Выбрать, два текстовых поля и флажок Итог.
При нажатии кнопки Выбрать выбираются данные (номер, название и цена) обо всех контрактах на поставку указанного товара. Товар должен быть указан в текстовом поле. Выбранные данные выводятся в ячейки на рабочем листе, начиная с ячейки, указанной во втором текстовом поле. Например, если в первом текстовом поле указано название товара – компьютер, а во втором – указано F2, то в ячейки (начиная с F2) выводятся данные обо всех контрактах на поставку компьютеров.
Кроме того, если установлен флажок Итог, то вычисляется суммарная стоимость выбранных контрактов. Она выводится в свободную ячейку под выбранными данными.

Вот задание, которое мне нужно сделать. Вроде всё более менее мне ясно, кроме задания в последнем абзаце,т.е. суммирования и особенно вывода в свободную ячейку под выбранными данными. Помогите пожалуйста разобраться, а то я не совсем понимаю, как действовать.

Вот то, что я пока насоображал :

Private Sub vip_Click()
Set d1 = Selection
Set d2 = Range(ya.Value)

m = d1.Rows.Count
n = d1.Columns.Count
k = tovar.Value
Z = 0

For i = 1 To m
num = d1.Cells(i, 1).Value
kol = d1.Cells(i, 3).Value
cena = d1.Cells(i, 4).Value

If itog.Value = True Then
If d1.Cells(i, 2).Value = tovar Then
Z = Z + 1
Sum = 0
With d2
.Cells(Z, 1).Value = num
.Cells(Z, 2).Value = kol
.Cells(Z, 3).Value = cena
End With
End If
Else
d2.Cells(Z + 1, 4).Delete
End If
Next i
End Sub