pasting cell number of times

[rockstart]

I have picked up to write macro after a long time. So please bear with me here. I have following data

Date Name
2/22/11 A
XXXXXX B
XXXXXX C
XXXXXX D

Ignore XXXXXX read them as blank cells (added to keep formatting of post)

The end state I want to get to is

Date Name
2/22/11 A
2/22/11 B
2/22/11 C
2/22/11 D

Now I have figured out how to count # of rows in 2nd column and put it in a variable "RecordCount" (Which will be 4 in this case) my question is how can I copy the data in cell A2 and paste it to next 3 cells below?