excel 宏复制工作表的问题

我有一个很大的Excel表（大约上万条），现在需要全宏把这个表里的数据【每10条】复制到一个新的Sheet里
，求大神帮忙写宏，谢谢。