Как сделать данную функцию Суммы в VBA > Exel?

Есть вот такая вот формула, входными данными являются значения двух столбцов, x и y. Как я понял в данном выражении складывается произведение x1 и y1, x2 и y2 и т. д. из чего сделал вывод, что входные в функцию данные должны являться диапазоном. Но мои попытки организовать вычисление данной формулы увенчались провалом, помогите)

По дате

По рейтингу

fioletovyi_slon_1

Новичок

11лет

Ну если числа в диапазонах A1:A3 и B1:B3, можно так:
Dim s As Integer
Dim c As Range
For Each c In ActiveSheet.Range("A1:A3")
s = s + c.Value * c.Offset(0, 1).Value
Next c