两列相减并产生第三列的有关问题，怎么用宏实现

两列相减并产生第三列的问题，如何用宏实现
现在有a,b,c三列
a为截止期，日期型，b为检查期，日期型，现在我想b-a，如果b-a> 30,c列显示“正常 "，如果b-a <0，显示“已经过期”，不知道怎么用宏来实现。

------解决方案--------------------------------------------------------
ActiveSheet.Range( "C1 ").FormulaR1C1 = "=DAYS360(RC[-2],RC[-1],FALSE) "
ActiveSheet.Range( "D1 ").FormulaR1C1 = "=IF(RC[-1]> 30, " "正常 " ", " " " ") "