Create pivot table using macro

Hi,

Could anyone show me how to create a pivot table using a macro please

I've attached a file containing the data and what the pivot table should look like in a new worksheet

I appreciate your help

Thanks

Steve