Generate a calendar

Assuming your top left cell is A1:

Sub taralian()
x = InputBox("What month? i.e. January = 1")
Z = Format(DateSerial(2016, x, 1), "dddd")
y = 1
For i = Cells.Find(Z).Row To 7
Cells(i, 1).Value = y
y = y + 1
Next
For j = 2 To 6
    For i = 1 To 7
        Cells(i, j).Value = y
        y = y + 1
        If y > CInt(Format(DateSerial(2016, x + 1, 0), "dd")) Then Exit Sub
    Next
Next
End Sub