eliminacion de palabra

Hola, me quedo duda sobre un comentario que hicieron hace tiempo sobre
eliminar solamente una palabra de una celda. Yo tengo ese problema y no
se si me puedan ayudar, tengo una lista que contiene 2 palabras, la
primera es diferente en todos los casos y lasegunda es igual en toda la
columna, se podria quitar esa palabra comun a toda la lista?

Vi una resouesta parecida a lo que necesito:

Sub CheckRange()
Set miRango = ActiveWorkbook.Worksheets(1).Range("A:A")
For Each cell In miRango
If BuscarPalabras(cell.Value) > 0 Then cell.Value = ""
Next
End Sub


Function BuscarPalabras(str1)
Dim regEx
Set regEx = CreateObject("vbscript.regexp")
regEx.Global = True
regEx.Pattern = "Madrid|Roma|Berlin" '< Aqui va la lista de
palabras
regEx.IgnoreCase = True
Set myMatches = regEx.Execute(str1)
For Each Match In myMatches
i = i + 1
Next
BuscarPalabras = i
End Function


Pero no quiero que se elimine todo el contenido de la celda, se podra?
Muchas gracias de antemano, espero me puedan responder.
Saludos!