Составьте программу на языке VBA для решения следующей задачи. Для семи видов продукции известна цена реальзации единицы продукции и количества реализованной продукции. Опредедить общую выручку от продажи всех видов продукции

Sub aaa()    Dim s As Double, r As Range    Set r = Range("C2:D8")    s = 0    For i = 1 To 7        s = s + r(i, 1) * r(i, 2)    Next i    Cells(9, 3) = sEnd SubВо вложении - файл с рабочей книгой Excel 2003