Macro para insertar columnas después de cada titulo

Para "Dante Amor"

Hola amigo molestándote de nueva cuenta.

Necesito una macro que me pueda insertar columnas después de cada titulo de columna te explico:

A-CONCEPTO, B-VALOR, C-Evento1, D-Evento2

El resultado que quiero es que me copie todo lo de la columna en otra hoja y al mismo tiempo me agregue una columna vacía a la derecha con el titulo abreviado que tenga la de la izquierda.

A-CONCEPTO, B-VALOR, C-val, D-Evento1, E-Eve, F-Evento2, G-Eve

Caber mencionar que el numero de columnas al final es variable puede tener un, dos o mil gracias y esepro me puedas ayudar con la macro que haga esto