A1 =Today()

A3 Monday June 17
A4 Tuesday June 18
A5 Wednesday June 19
A6 Thursday June 20
A7 Friday June 21

If today is Wednesday June 19, I want the macro to add one to cell B5, if its Thursday I want it to add 1 to cell B6, etc... I'm not quite sure how to write this. Any help?