autofill row with variable column (date)

Hello all,

I am after a macro that will allow me to add one week of dates from cell(1,7) which refers to 01/04/2013. Every time I will run the macro, the header auto fills one week of dates.
cell(1,8) would be 02/04/2013
cell(1,9) would be 03/04/2013....

Thanks.