Макрос, проставляющий статусы в зависимости от даты

[Oriella]

Добрый день. Помогите, пожалуйста, с решением задачи для работы. Очень нужно, но я никак не могу сообразить.
Есть столбец, в котором стоят даты, когда истекает лицензия. Дату необходимо сравнить с текущей и в соседнем столбце проставить статус в зависимости от следующего:
< текущей - Срок истек
>= текущей, но разница менее 45 дней - Срок истекает
>= текущей + 45 дней - Активный
Если же даты нет, то статус Осутствует

По окончанию работы макроса должно выдаваться Msgbox, где у казано, что Истекающих столько-то, Активных - столько и т.п.

Помогите, пожалуйста, очень надо. но я никак не могу сообразить, что делать с датами - как их сравнивать с разницей в днях.

Спасибо всем большое заранее

[alebed]

см. вложенный файл
Писал быстро если что напутал прошу меня простить, весь смысл в
Des = DateAdd("d", 45, Range("G1").Value)
где
"d" - параметр дни (может быть m - месяцы или у - годы)
45 - сколько добавляем
Range("G1").Value - от какой даты отталкиваемся

[Oriella]

to alebed

Да, да. Большое спасибо. Я уже как раз разобралась.