Macro para crear una tabla dinámica

Para Dante

Necesito una Macro cree una tabla dinámica en otra por cada registro de la columna y sume el total de la columna D.