急救！！！ VBA 批量导入和批量导出标准表格

鱼儿5610

各位高手：
    最近手上有几千行数据（见索赔明细），每一行代表对一个供应商的索赔信息（包括供应商名称、原始金额、供应商名称、索赔单编号、索赔产品、数量、发生月份等），需要将索赔明细中每一行的信息对应复制黏贴到标准表格对应的阴影区域，由于数据量太大。而且是重复的动作，不知道可以用VBA实现吗？急用，万分感谢
    其中标准表格中阴影区域的数据来源如下：
    GX2016090476 来源于 索赔明细中 索赔单编号
    2016-9-2     来源于 索赔明细中  制单日期
   黎明液压有限公司  来源于 索赔明细中 供应商名称
    蒋经理  来源于 标准通讯录中 黎明液压有限公司对应的联系人，如果标准通讯录中未找到该供应商名称，那么联系人、电话、传真均空白，其他工作继续进行
      3775893399     来源于 标准通讯录中蒋经理对应电话
       7732760       来源于 标准通讯录中蒋经理对应传真，如没有就空着
     过滤器  来源于  索赔明细中 索赔产品
         13  来源于  索赔明细中 数量
    2016年8月  来源于 索赔明细中 发生月份
    230  来源于   索赔明细中    原始金额
  269.1  来源于    索赔明细中  索赔单金额

     希望将每一行转化为索赔单之后，另存为excel表，保存在桌面上“索赔单”文件夹，且表格的名字命名方式为：索赔单编号后六位数字+供应商名称，本例子最后生成的excel名称应为“090476黎明液压有限公司”。