Sub Macro2()
Dim Cel As Range
Application.ScreenUpdating = False
[C10].Value = DateSerial([B2].Value, 1, 1)
[D10:ND10].FormulaR1C1 = "=OFFSET(RC,0,-1)+1"
[C11:ND11].FormulaR1C1 = "=TEXT(R10C,""jjj."")"
[C12:ND12].FormulaR1C1 = "=DAY(R10C)"
With [C9:ND9]
.FormulaR1C1 = "=1/(WEEKDAY(R10C,2)>=6)"
Intersect([13:63], .EntireColumn).Interior.Color = xlNone
Intersect([13:63], .SpecialCells(xlCellTypeFormulas, 1).EntireColumn).Interior.Color = &HBABABA
.FormulaR1C1 = "=IF(R12C=1,TEXT(R10C,""mmmm""),NA())"
.HorizontalAlignment = xlCenterAcrossSelection
.SpecialCells(xlCellTypeFormulas, 16).ClearContents
.Resize(4).Borders(xlInsideVertical).LineStyle = xlThin
.Resize(2).Borders(xlInsideVertical).LineStyle = xlNone
For Each Cel In .SpecialCells(xlCellTypeFormulas, 2)
With Cel.Resize(4).Borders(xlEdgeLeft)
.LineStyle = xlDouble: .Color = 186&: .Weight = xlThick
End With: Next Cel: End With
With [C9:ND12]: .Value = .Value: .Rows(2).ClearContents
.ColumnWidth = 4: End With
End Sub