¿Código de macro para colocar dos columnas en formato texto?

Código de macro para colocar dos columnas G Y H como texto, ellas están ubicadas en la Hoja 2.