Filter months & generate new tabs from results

Hi all!

I have an awesome snippet of code which looks at a column of months (mmm) & generates a new tab for each month then copies all rows using that month respectively. May be easier if you view my workbook attached. The problem I am having is the month colunm I will eventually have will be generated from column "B" which will have a series of full dates & the only way I can generate months as "mmm" is by using...

=IF(B2,B2,"")

...in column "G", sadly when I use a formula to achieve this my VBA doesn't work? Is there another way to make this work? Thanks for any help guys, as always much apreciated - Marc