Прошу помощи с VBA

Ребят, помогите пожалуйста справиться с заданием по информатике.

Через пару часов нужно бежать сдаваться преподу, а одно задание так и не готово. Ну вот сколько не бьюсь, никак не получается:no:

И вообще, если кто-то может уделить пару минут, дайте свою аську. Нужно ещё индивидуальный проект подготовить:)