Add Missing Dates

[snb]

Sub M_snb()
    with Cells(1, 4)
      .value = DateSerial(Year(.value), Month(.Value), 1)
      .AutoFill .Resize(31)
    end with
End Sub