Eu irei através disso para uma função.
=LEFT(A2,SEARCH(".",A2,1)-1)
Onde A2 seria o host.domain.com. Você poderia então colar em massa e Ocultar A2, deixando na nova célula apenas o nome do host
Se você quer escrever apenas a célula existente, então ela teria que ser VBA.