Acerca de la programación vba para insertar columnas

Copie el siguiente código en su programa. Los códigos con el símbolo 'han sido reemplazados por la siguiente línea de código. Hice lo mejor que pude. Quiere agregar dos columnas al final cada vez que haga clic en el botón y configurarlo para que solo ingrese valores mayores que la fecha 2014.1.

¿Sub? Charu()

Columna(" AX:AY "). Escoger

Seleccionar. ¿insertar? Mayús:=xlADerecha,? origen de la copia:= xlformatfromleforabove

rango("AX3"). ¿Seleccionar

col1? =?rango("iv3"). Fin (xlAIzquierda). Cilíndrico

Celda(3,?col1??1).Seleccione

¿Qué usar? elegir. Interno

. ¿patrón? =?xlSólido

. ¿Índice de color de patrón? =?XLAutomático

. ¿color? =?65535

. ¿Tinte y sombra? =?0

. ¿Patrón, tinte y sombra? =?0

¿Fin? Con

ActiveCell. ¿Fórmula 1C1? =?"Fecha de reinicio"

Rango ("AY3"). Seleccione

ActiveCell. ¿Fórmula 1C1? =?"Cantidad de reconsumo"

Celda(3,?col1??2)?=?"Cantidad de reconsumo"

Rango("AX4:AX39"). Escoger

Seleccionar. ¿FormatoNúmeroLocal? =?" yyyy-m-d "

Rango(celda(4,col1? ?1), ?celda(39,col1? ?1)).NumberFormatLocal? =?" yyyy-m-d "

Ventana activa. ¿Pequeño pergamino? Abajo: =-36

Rango("AY4:AY39"). Seleccione

la ventana activa. ¿Pequeño pergamino? Abajo: =-63

Rango("AX4:AX39"). Seleccione

la ventana activa. ¿Pequeño pergamino? Abajo: =-48

Rango(cell(4,col1? ?1), ?cell(39,col1? ?1)).Seleccione

¿Qué usar? elegir. Confirmar

. Eliminar

. ¿Reponer? Tipo: =xlValidateDate,? AlertStyle:=xlValidAlertStop,? Operador: =? _

xlMayor,? fórmula 1: = " 1/1/2014 "

. ¿Ignorar en blanco? =?real

. ¿En el menú desplegable de celdas? =?real

. ¿Título de entrada? =?""

. ¿Título equivocado? =?""

. ¿Ingresar mensaje? =?""

. ¿Mensaje de error? =?""

. ¿Modo IME? =?xlIMEModeNoControl

. ¿Mostrar entrada? =?real

. ¿Mostrar error? =?Real

Fin? Con

alcance("AY4"). Seleccione

Celda(4,?col1??2 Seleccione

Fin? Submarino