Программирование на VBA.Нахождение суммарных значений

ОЧЕНЬ СРОЧНО!!!! Нужен VBA код (в WORD-макрос).
Найти суммарный вес N-слойной сферической оболочки с внутренним диаметром D, если внешние диаметры слоев равны: D+l, D+2, D+3, ..D+N, а удельный вес материала слоев соответственно равен: G, G/2, G/3,..,G/N. Слои плотно прилегают друг к другу.