Group date in PivotTable - VBA

Hi Team,

I am looking for a VBA code that I can group the date. As the table have two different types of data, July and 7/1/2011. Because July was not type in as number, so the Pivottable doesn't allow me to group it. Can I get a VBA code to solve this issue? Many thanks in advance and looking forward for your prompt respond.

Here is my table look like
Date
21-Jul-11
21-Jul-11
21-Jul-11
21-Jul-11
21-Jul-11
1-Jul-11
1-Jul-11
July


Thx.
Laihung8