Заполнение ячеек датами с интервалов - VBA

Формулировка задачи:

Как это можно сделать?

Заполнить с помощью макроса ячейки столбца А датами от сегодняшней с шагом 1 месяц на весь год.

все что получилось

 Range("C1").FormulaR1C1 = Now
    Range("C1:NB1").DataSeries Rowcol:=xlRows, Date:= _
        xlWeekday, Step:=31

но к сожалению он считает не так, как необходимо, нужно чтобы после 4 апреля, следующая стояла дата 4 мая и т.д.

Решение задачи: «Заполнение ячеек датами с интервалов»

textual
                            Листинг программы 
                        

                            Sub Month()
S = Format(Now(), "DD")
Cells(1, 1).Value = Format(Now(), "DD-MMMM-YY")
For i = 2 To 12
Cells(i, 1).Value = S & "-" & Format(Now() + (i - 1) * 30.42, "MMMM-YY")
Next
End Sub
                        