Se você assumir que um espaço é a divisão entre palavras, você pode usar algo assim.
=LEFT(A1,FIND(" ",A1,1))
se você tiver uma frase com vírgula após a primeira palavra, ela também será retornada. Você pode inserir isso em uma célula adjacente e colar o resultado. ou se você quiser que uma macro faça isso, é bastante simples de se adaptar.