Alttaki gibi Trim ile yapabilirsiniz ama tam anlamadım nerde boşluk.

plaka = Trim(.Cells(i, "D").Value)

---

Yada 5.Mesajdaki yeri alttaki gibi deneyin.

kelime = Trim(CStr(.Cells(i, "C").Value))