Всем добрый день!

Помогите плиз превратить следующие формулы в макрос:

Формула 1:


=ЕСЛИ(И(AD10<>"";AE10<>"");ЕСЛИ(СЕГОДНЯ()>=CA10;"Договор заключен";
ЕСЛИ(И(СЕГОДНЯ()<CA10;СЕГОДНЯ()>=BY10);"Договор на подписании у Поставщика";
ЕСЛИ(И(СЕГОДНЯ()<BY10;СЕГОДНЯ()>=BW10);"Формирование и согласование Договора";
ЕСЛИ(И(СЕГОДНЯ()<BW10;СЕГОДНЯ()>=BD10);"Формирование СЗ на Договор";
ЕСЛИ(И(СЕГОДНЯ()<BD10;СЕГОДНЯ()>=BB10);"КЛ на согласовании в ОЭЦ ДО";
ЕСЛИ(И(СЕГОДНЯ()<BB10;СЕГОДНЯ()>=AZ10);"КЛ на согласовании в ДМТО(ДЗРУ)/ОМТС";
ЕСЛИ(И(СЕГОДНЯ()<AZ10;СЕГОДНЯ()>=AX10);"Анализ ЦП/Тендерной заявки";
ЕСЛИ(И(СЕГОДНЯ()<AX10;СЕГОДНЯ()>=AV10);"ЗЦП отправлен/Объявлен ТД";
ЕСЛИ(И(СЕГОДНЯ()<AV10;СЕГОДНЯ()>=AK10);"Готовится ЗЦП/ТД";
"Не начата")))))))));"")

Все указанные в формуле ячейки - даты, рассчитанные автоматически.

Формула 2:

=ЕСЛИ(H10="Отмена";"Отмена";
ЕСЛИ(H10="";"";
ЕСЛИ(И(CQ10<>"";P10="ТМЦ");"Поставлено";
ЕСЛИ(И(CR10<>"";P10="Работы");"Поставлено";
ЕСЛИ(И(CR10<>"";P10="Услуги");"Поставлено";
ЕСЛИ(BZ10<>"";"Договор заключен";
ЕСЛИ(BX10<>"";"Договор на подписании у Поставщика";
ЕСЛИ(BV10<>"";"Формирование и согласование Договора";
ЕСЛИ(BC10<>"";"Формирование СЗ на Договор";
ЕСЛИ(BA10<>"";"КЛ на согласовании в ОЭЦ ДО";
ЕСЛИ(AY10<>"";"КЛ на согласовании в ДМТО(ДЗРУ)/ОМТС";
ЕСЛИ(AW10<>"";"Анализ ЦП/Тендерной заявки";
ЕСЛИ(AU10<>"";"ЗЦП отправлен/Объявлен ТД";
ЕСЛИ(AJ10<>"";"Готовится ЗЦП/ТД";
"Не начата"))))))))))))))

В этой формуле все ячейки - тоже даты, но проставленные вручную.

Также необходимо, чтобы я мог нажать на кнопку макроса и он пришёлся по огромному кол-ву строк (на данный момент 100"000 позиций)

Заране премного благодарю!

В отдельных столбцах необходимо вывести названия месяцев, в которых есть НЕнулевое значение

(Цель: Это график оплат по месяцам, специалисты заполняют по каждому контракту в каких месяцах необходимо оплачивать. Мне нужно в отдельных столбцах вывести все оплаты по каждому контракту по очереди, а точнее Месяцы, в которых необходимо платить, для того, чтобы понимать, наступил ли срок какой-либо из оплат. Максимальное количество оплат - 7, думаю это хоть как-то влияет на формулы)

Необходимо БЕЗ макросов, формулами. Я смог вывести только первый месяц с помощью ИНДЕКС и ПОИСКПОЗ

Необходимо, например, в ячейке А2 присвоить 1, если А1 закрашена и 0 - если не закрашена. Желательно без ВБА (файл будет разослан всем сотрудникам, и многие будут на автомате не включать ВБА).
Заранее огромное спасибо!