Расчет средневзешенного

[zoman]

Есть таблица (именованный диапазон) в Excel (упрощена)

Артикул-Цена за шт.-Средневзвешенная цена
10 -4
10 -7
10 -5- 5,33
20 -10
20 -11- 10,5
30 -25- 25
40 -36
40 -45
40 -38
40 -52- 42,75

Изначально в Средневзвешенной цене данных нет - их надо расчитать при помощи модуля (макроса).
Таблица отсортирована по Артикулу, которые местами совпадают.
Выбираются строки с совпадающим артикулом, далее суммируются значения поля Цена и делится на кол-во выбранных строк, например для первых трех: (4+7+5)/3 = 5,33. Полученное значение записывается в столбец средневзвешенное в последнюю строку.

Помогите написать код. Спасибо.

[pashulka]

Подобные задачи довольно легко решаются, если использовать самые обычные формулы.

[zoman]

Сообщение от pashulka

Подобные задачи довольно легко решаются, если использовать самые обычные формулы.

Кстати, вчера нашел эти формулы в Excel - но не смог связать

Спасибо за подсказку