Cesar Cruz

Hola Buen día Quisiera eliminar Columnas con una macro de acuerdo a el valor en la Fila 1 donde tengo ceros y unos para los cuales las columnas con cero se eliminen! A B C D 1 1 0 0 1 2 3 4 Agradezco su Amable ayuda