VBA for MsExcel. Циклы и работа с хост-приложением

[funduk]

Исходные данные: коэффициенты трудоемкости производства каждой из К деталей на каждом из М
предприятии. Исходные данные определяются путём обращения к датчику случайных чисел. Задание:
a. Для любой детали определить среднее значение коэффициента трудоемкости.
б. Для любого предприятия найти деталь с наименьшим коэффициентом трудоемкости.

Здесь вроде так:

А тут не подскажите?
Исходные данные: расход каждого из К материалов на производство каждой из М деталей. Исходные
данные определяются путем обращения к датчику случайных чисел. Задание:
а. Для любого материала определить деталь с наибольшим расходом.
б. Для любой детали определить суммарное значение расхода всех материалов.

[funduk]

Ничего не получается=(
Тема актуальна! Помогите плз