Isso pode ser feito sem usar uma macro. As fórmulas abaixo preenchem uma nova tabela à direita dos dados existentes:
Essas fórmulas, preenchidas de O2: R2 (respectivamente), fornecem os resultados mostrados.
=OFFSET($A$2,TRUNC((ROW()-2)/12),0)
=OFFSET($B$2,TRUNC((ROW()-2)/12),0)
=RIGHT(OFFSET($C$1,0,MOD((ROW()-2),12)),3)
=OFFSET($C$2,TRUNC((ROW()-2)/12),MOD((ROW()-2),12))
Observe que (por simplicidade) eu mudei seus cabeçalhos de destino para que a parte do mês seja a abreviação de três letras. Se você quiser extrair um nome de mês mais longo, isso pode ser feito usando as funções de texto MID () e LEN ().
Quando tiver preenchido todos os novos dados, você poderá excluir as colunas que contêm os dados antigos, se desejar. Mas primeiro, selecione todos os novos dados, copie-os e Colar especial > Valores ... para que os dados não sejam perdidos quando você excluir as colunas das quais é derivado.