Need help of getting current month date from start to end!!

Hi,

I have used the below code to get the current month date, but it is filling the date until the last cell i.e. 1 may 2012 to "last row date" something like 3-jan- 4015. Kindly help me to get the current month dates alone in the spread sheet.

Sub CurrentMonthdate()
'MsgBox Month(Now)
'MsgBox Application.WorksheetFunction.EoMonth(Now(), 0)
Range("A2").Select

ActiveCell = Application.WorksheetFunction.EOMonth(Now(), -1) + 1
ActiveCell.NumberFormat = "mm/dd/yyyy"
While (ActiveCell <> Application.WorksheetFunction.EOMonth(Now(), 0))
    ActiveCell.Offset(1, 0).Select
    ActiveCell = ActiveCell.Offset(-1, 0) + 1
    ActiveCell.NumberFormat = "mm/dd/yyyy"
Wend


End Sub

Option Explicit

Sub Create_Dates()

    Dim i As Long, y As Long, m As Long
    
    y = Year(Date)
    m = Month(Date)
    
    Application.ScreenUpdating = False
    
    For i = 1 To Application.WorksheetFunction.EoMonth(Date, 0) - Application.WorksheetFunction.EoMonth(Date, -1)
        Cells(i, "A") = Format(DateSerial(y, m, i), "mm/dd/yyyy")
    Next i
    
    Application.ScreenUpdating = True

End Sub