想使用vba实现一下功能

在excel表sheet1中，先通过文本框输入编号信息检索，然后将所在行的第1，2，5，9列的信息分别复制到新建的sheet2中的1，2，3，4列中。
重复上述操作时，sheet2中的信息需要按搜索顺序排列汇总
有点复杂，望各位不吝赐教，小弟不胜感激。