помогите с задачей в VBA

[enderova]

Сельхозпредприятие поставляет выращенное зерно на элеватор (500 т), комбикормовый завод (125 т), птицефабрику (45 т) и спиртзавод (30 т). Элеватор находится в 86 км и платит по 3,2 руб./кг, комбикормовый завод находится в 47 км и платит по 3,9 руб/кг, птицефабрика находится в 56 км и платит по 4,3 руб./кг, спиртзавод находится в 120 км и платит по 5,1 руб./кг. Сельхозпредприятие перевозит зерно своим автотранспортом грузоподъемностью 9 т и расходом горючего 32 л на 100 км.
Определить выручку и доход предприятия от продажи зерна каждому потребителю и общие выручку и доход. Принять стоимость дизтоплива равной 14 руб/л.
Эту задачу нужно написать через макросы, надеюсь на помощь...