批量查找问题，，请高手帮我改改代码

ltcjenius

      可以批量查找，可结果不太理想，执行循环，结果复制到指定工作表的结果，第一个目标查找的结果给覆盖了，请路过的大神帮忙修改下代码吧，可能是循环和把结果复制到工作表之间的代码逻辑关系有问题，实在搞不懂了。
      我的要求是，执行循环如果i=4，执行查找，结果复制到工作表，i=5，执行查找，得到的结果顺着上一循环结果后面在指定的工作表，同理i=6.....直到把需要查的姓名或电话号码找完。又或者循环完，结果显示在指定工作表，之间的逻辑关系交给电脑好了，头都大了，急啊，，，，，，各位帮帮忙吧！