Macro Convertir Texto en Columna

Buen Dia Expertos,

NEcesito de su ayuda para poder crear una Macro que me permita convertir todas las columnas que tienen información en formato General.

NOrmalmente lo que yo hago es convertir todo en Formato General luego le paso TEXTO EN COLUMNA cada una de las columnas.