Nelson Felipe Serrano respondió:
La línea que necesitas implementar en tu código es la siguiente: ActiveSheet. Range("C1"). EntireColumn.Insert adicionalmente te dejo un archivo que puedes descargar por si tienes problema con el acople de la instrucción.