Auto change sum column referance cells

Item apr may jun jul…dec jan feb mar spentTODt
A 10 30 5 15 60(e4:h4)
B 5 10 10 10 45(e5:h5)
D =sum(e6:h6)
F =sum(e7:h7)
Total =sum(r4:r7)

when MthTotal for Item-A is sum from Apr-Jul using =sum(INDIRECT(MONTH(TODATE())) , the cells below for Item-B to F does not change automatic. How can I best do this? On Excel 2002/2000 and VB