VBA Macro - Change Date/Time into the Month

Sub test()
Dim x As Long
x = Range("A" & Rows.Count).End(xlUp).Row
With Range("B2:B" & x)
    .Formula = "=MONTH(A2)"
    .Value = .Value
End With
End Sub

Sub test()
Dim dc As Range, mc As Range, x As Long
Set dc = Range("1:1").Find("Date", , , xlWhole)
If dc Is Nothing Then MsgBox "Date Column not Found", vbExclamation: Exit Sub
Set mc = Range("1:1").Find("Month", , , xlWhole)
If dc Is Nothing Then MsgBox "Month Column not Found", vbExclamation: Exit Sub
x = Cells(Rows.Count, dc.Column).End(xlUp).Row
With mc.Offset(1).Resize(x - 1)
    .Formula = "=MONTH(" & dc.Range("A2").Address(0, 0) & ")"
    .Value = .Value
End With
End Sub