Using Month Function To Obtain Month And Copy It To Next Empty Column

I am working in a spreadsheet that contains a bunch of data, it is not limited, and varies. It has some fiels such as: name, date of birth, address, and others. I am interested in creating a column with only the month digit of the date of birth for each row.

I have been working with some code, I am not quite sure how to continue. The following table would be a example that I have of the data, it has only to entry in the column of Date of Birth, but my data range will always vary. I want to get the month and past it in the next cell that is available in this case would be column c or 3... The worksheet name is REP.

VB:

Dim Cell As Range
' 1st cell with the posting date
Set Cell = Range("A2")

Do While Not IsEmpty(Cell)
If Cell = "Date" Then

[Code] .....