agregar dados em VBA excel

Boa tarde,

tenho um problema com VBA, que gostaria que me ajudassem a resolver, pretendo com recurso a código em VBA agregar os dados  de forma a que eles sejam somados.

Em baixo, existe uma imagem , com o exemplo do pretendido. A esquerda a tabela que possui os dados de forma massiva e a direita o pretendido.

Será que alguém me pode auxiliar a resolver isto!

Obrigado.