两表复制 插入 粘贴问题 ，希望能用vba解决

1e3e

详见附件：样表一 ，其中x列中 ：一、基本口粮田及农田水利        对应        1

                                                  （一）基本口粮田        对应        2

……………………………
依次类推。
现在执行的重复操作是：
在样表一x列中 ：查找最小值1（如果最小值1不存在则查找2…依次类推），获取1所在行号为4，查找2(除掉最小值1外x列最小的数，如果2不存在则查找3…），获取2所在行号为5，复制行数为Rows(5-4－1)即复制0行（即不要复制）
……………………………………………………………………………………………………………………………………………………………………
    依次类推，在x列中 ：查找28所在行号为31（如果28不存在则查找下一个）,查找29(除掉上面取完的数后x列最小的数，如果29不存在则查找下一个），获取29所在行号为33，复制行数为Rows(33-31－1)即复制1行（即复制rows(32)）
下面依次类推。

在“空表”中，在x列中 ：查找28并在其所在行插入复制行（即插入复制rows(32)，如果28不存在则查找下一个大一点的数）……………依次类推。
得到效果 如“要达到的效果”表