Excel - Macro para eliminar parte de Texto

Saludos a todos en el foro.

Quisiera solicitar ayuda con respecto a cierta información que tengo en un archivo de excel, tienen mucha información y al final viene un texto donde dice "ACTIVIDAD REALIZADA" e indica donde se hizo, lo que necesito e que a partir de ese texto me elimine todo lo que tenga después hasta el final de la celda, incluyendo el mismo texto (ACTIVIDAD REALIZADA), no tengo idea de cómo hacerlo con ayuda de una macro.
De cualquier modo muchas gracias por la atención

Jonathán

La verdad te podemos ayudar pero debe definir el problema ya que no se entiende nada del problema planteado

Primero antes que todo, gracias por la atención y contestar:
Me explico mejor, tengo una hoja de excel en la que en cada renglón de la columna "E" se describen actividades realizadas

Yo no quiero que me ponga nada de lo que dice en ACTIVIDAD REALIZADA

Ejemplo:

En vez de decir "Se realiza habilitado de materiales para instalación de Sistema Fotovoltaico. ACTIVIDAD REALIZADA en el primer Nivel lado sur del almacén general de materiales sección B Plano xxx-xxx-xxx-xxx.dwg concluyendo a las tales horas"

Quiero que solo diga "Se realiza habilitado de materiales para instalación de Sistema Fotovoltaico."

Cada renglón dice diferente actividad y el texto donde dice ACTIVIDAD REALIZADA siempre varía, pues se realiza la actividad en distinto lugar, pero siempre empieza con el texto "ACTIVIDAD REALIZADA"

Por eso necesito una macro que se base en ése texto y me lo borre con todo lo que este escrito después.

La cantidad de renglones varía y es tedioso hacerlo de manera manual

Espero haber sido más claro esta vez

¿Conoces algún modo con macro?

Nuevamente muchas gracias

algo así podría funcionar...


Saludos, desde Baires, JuanC

Gracias por tu código, pero no puedo hacer que funcione, me sale una ventana que dice que no coinciden los tipos y me selecciona el área "A1:A10",

Le modifique por Range("A1:A10"), pero ahora me sale en la ventana un error que dice "Se ha producido el error 5 en tiempo de ejecución argumento o llamada a procedimiento no válida y me selecciona: s = VBA.Trim(VBA.Mid(s, 1, VBA.InStr(1, s, "ACTIVIDAD REALIZADA") - 1))

¿Qué estoy haciendo mal?

Saludos desde México

está bien tu modificación... me olvidé del Range()...
el error probablemente se debe a que alguna celda en el rango definido está vacía o no
contiene la cadena "ACTIVIDAD REALIZADA"

Saludos, desde Baires, JuanC