Macro para suprimir texto a partir de un carácter conocido

Tengo varios textos en celdas desde la A1 a la I1. Todos tienen una coincidencia, y es que entre su texto y en distinta posición tienen el carácter "<". Quiero suprimir dicho carácter "<" y todo lo que siga detrás, y desecharlo. El resultado de lo que queda, que es lo válido, debe aparecer en las celdas de debajo, desde A2 a I2.

Gracias

Saludos