VBA如何分别比较不同区域内的最小值

求问
excel中如下图
怎么利用VBA可以达到分别比较每个人的最小日期啊

日期最小值：=MINA(DAY(C3),DAY(C4),DAY(C5),DAY(C6),DAY(C7))
日期最大值：=MAXA(DAY(C3),DAY(C4),DAY(C5),DAY(C6),DAY(C7))
月最小值：=MINA(MONTH(C4),MONTH(C5),MONTH(C6),MONTH(C7),MONTH(C8))
月最大值：=MAXA(MONTH(C5),MONTH(C6),MONTH(C7),MONTH(C8),MONTH(C9))
当然也可以用其他的方法。