循环搜索Excel中多行关键词，写入内容时，能根据搜索关键词，在右侧单元格写入搜索结果第一个 挺急···

想要实现的结果如题。

面临的问题：循环搜索没问题，但写入数据时，只覆盖写在第一个关键词右侧的单元格里，不往下写入。

求大神指教，挺着急的，编写的程序如图。