输入期号查找历史开奖号码并复制到另一工作表

现在就是有了大乐透的历史开奖数据，A列是期号，7001-20085期，现在要输入期号比如“050”，找到所有历年的同期开奖号码，并把所有查到的数据复制到另一工作表中。我是VBA初学者，代码出问题了，就是只能找到第一行，复制第一行数据。求帮忙改正下。