Необходим макрос для пересчета суммы всех значений и вывода итоговой суммы

[Максим Гриник]

Здраствуйте уважаемые люди!Необходима Ваша помощь,горю!нужно создать макрос прикрепленный к кнопке,чтобы при нажатии пересчитывал
D2 = B2 * C2
D3 = B3 * C3
D4 = B4 * C4
D5 = B5 * C5
D6 = B6 * C6
D7 = B7 * C7
D8 = B8 * C8
D10 = D2 + D3 + D4 + D5 + D6 + D7 + D8
эти ячейки и выводил ответ на месте этих формул,буду очень благодарен,выкладываю сам файл исходник,вы Моя Последняя надежда!прошу помогите)просьба не говорить что зачем тут нужен макрос,ибо это необходимо для сдачи итогового зачета,декабрь месяц,все сроки вышли,не сдам-отчислят (модераторы не закрывайте пожалуйста тему,лучше подскажите как правильно назвать)

[kuklp]

Другое дело.
Макрос от Алишера(ShaM):

Код Выделить Развернуть

Sub Овал1_Щелчок()
    [D2] = [B2] * [C2]
    [D3] = [B3] * [C3]
    [D4] = [B4] * [C4]
    [D5] = [B5] * [C5]
    [D6] = [B6] * [C6]
    [D7] = [B7] * [C7]
    [D8] = [B8] * [C8]
    [D10] = [D2] + [D3] + [D4] + [D5] + [D6] + [D7] + [D8]
End Sub
И пара от меня:

Код Выделить Развернуть

Public Sub www()
    Dim r As Range
    Set r = Range("a2", [a65536].End(xlUp)).Offset(, 1)
    r.Offset(, 2) = Evaluate(r.Address & "*" & r.Offset(, 1).Address)
    [d10] = Evaluate("sum(" & r.Offset(, 2).Address & ")")
End Sub

Код Выделить Развернуть

Public Sub www1()
    [D2:D8] = [B2:B8*C2:C8]
    [d10] = [sum(D2:D8)]
End Sub
Файл Алишера из удаленной темы.

[Максим Гриник]

спасибо огромное!!!!!! :)выручили,очень рад,благодарности нету границ,есть же добрые люди на свете)))

[ShAM]

Лень было цикл писать, просто скобки добавил 
А то, что можно просто так писать не знал:

Код Выделить Развернуть

[D2:D8] = [B2:B8*C2:C8]
[d10] = [sum(D2:D8)]
Сергей, спасибо, век живи, век учись