'Год a go от текущей даты Dim LastYear As Date
LastYear = Now () - 365
Range ("Class [Date_Check]"). Формула = "= IF (Класс [FAILDATE]