Excel - Copiar y pegar datos al hacer clic

Problema

Tengo un conjunto de datos en A2 a A10. Cuando golpee la celda B1 que contiene la palabra "Enero", los datos se copiarán en B2 a B10. Si presiono la celda D1 que contiene la palabra "Marcha", los datos se copiarán en D2 a D10.

En otras palabras, me gustaría que los datos se copiaran y pegaran en las columnas en las que he hecho clic.

Solución

Asumí que tiene una columna para cada mes, por lo que el código solo se activará cuando se seleccione una celda en el rango B1: M1.

Este código debería hacer el truco:

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Si Intersect (Target, Range ("B1: M1")) no es nada, entonces salga de Sub Range ("A2: A10"). Copiar destino: = Celdas (2, Target, Columna) Sub 

Si desea que el código funcione para toda la primera fila, entonces cambie:

 Rango ("B1: M1") en filas (1).