syntax to add the first day of the following month

I am trying to find out if there is a way to tell excel to add the first day of the upcoming month when I execute a macro. For example, today is 19 August 2012. If I execute the macro today can I get it to automatically add 1 September 2012 to cell D1?

Here is my existing macro:

    Range("B1:BM1,D3:BM4,D6:BM67").Select
    Range("BM1").Activate
    Selection.ClearComments
    Selection.ClearContents
    Range("D1").Select