Sub c()
Range("A1:A12").Clear
Range("A1:A12").FormulaR1C1 = "=DATE(2017,ROW(),ROW())"
Range("B1:B12").FormulaR1C1 = "=(RC[-1]-DAY(RC[-1])+1)+CHOOSE(WEEKDAY(RC[-1]-DAY(RC[-1])+1),2,1,0,6,5,4,3)"
Range("A1:B12").NumberFormatLocal = "jjjj jj mmmm aaaa"
End Sub