求助，查询窗口的编程

214432640

我想编制一个查询窗口，窗口里输入数字（5位数），然后在当前sheet查询，找到时，复制“当前行”，粘贴到下个sheet第1行。继续查找的话粘贴到下个sheet第二行，依次类推，就相当于我要挑出我所查找内容的那一行，然后做成放到一个新的sheet里面。（下面有例子）
找不到时，提示没有找到。

我是VBA菜鸟，自己录制了一个宏，但是没有查询窗口的，需要通过ctrl+f查询，查询到了以后用这个宏，可以做到上面我说的，但是比较麻烦，所以想干脆弄个查询窗口，挑选数据会比较快，希望各位大神可以帮忙，谢谢了。以下是我录制的宏，希望可以给大家参考。
Sub Macro5()
'
' Macro5 Macro
'
' 快捷键: Ctrl+g
'
    ActiveCell.Rows("1:1").EntireRow.Select
    ActiveCell.Activate
    Selection.Copy
    ActiveSheet.Next.Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Previous.Select
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

求技术达人给加上个查询窗口，这样就可以不通过ctrl+f查询了，因为运行这个宏还要先把ctrl+f查询窗口关了才有用，速度不够快。


例子，我想要的效果，比如，自建一个查询窗口。
12305 苹果
23408 香蕉
34509 栗子
（sheet1）

查询"408"的时候，在sheet2第一行显示 23408 香蕉。再查询"509"的时候，在第二行显示 34509 栗子。

麻烦各位达人

大灰狼1976

附件请参考，模糊查询