copiar columnas

hola, 'anonimo/a' !

... intento... mediante codigo... escoger presionando un boton la columna A de la hoja 1 y pegarla en la columna A de la hoja 2
... se vuelve a presionar el mismo boton y ahora se selecciona la columna C de la hoja 1 y se pega en la misma columna A de la hoja 2
y asi sucesivamente hasta que se terminen los columnas con informacion.
El recorrido de las columnas en la hoja 1 es pasando una ( A, C, E, G, Etc.)

no se que tipo de boton estes pensando en utilizar, ni en cual de las hojas estaria incrustado -?-
el siguiente ejemplo es una macro normal desde un modulo de codigo estandar
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Copia_columnas_saltadas()
Static Col As Byte
Dim nCol As Byte
With Worksheets("hoja1")
nCol = .Range("iv1").End(xlToLeft).Column
If Col < 1 Or Col + 2 > nCol Then Col = 1 Else Col = Col + 2
.Columns(Col).Copy Destination:=Worksheets("hoja2").Range("a1")
End With
End Sub