Программирование VBA

Решить вариант 5 из файла "Zadaniya k tipovym". Решать все задачи не обязательно, но нужно решить минимум 20 задач.
Срок к третьему октября, строго. Пример решения есть во втором файле.
Цена и срок строгие, торга быть не может.
На выходе файл(