跪求高手指点！

用心修炼

目前初学VBA，总是遇到一些错误提示不知道如何解决！如附件中，我想实现的目的是：1、把C列存货编码这一列每个单元格倒数第3位添加一个0，再最前面添加字码A，然后在A列前插入一行空白列，把新的存货编码一一对应赋给A列（作为辅助列），目的是保持和第1张表的物料编码一致！（这一步我已经实现）。2、根据第1张表的仓库名称，依次在第2张表的仓库名称中查找，如果找的到，再判断对应的物料编码是否一致（比如：在第2张表的仓库名称列中，查找第1张表的B6单元格--上海华润ole，如果找到了，再判断第一张表B6单元格对应的物料编码，即E6单元格，是否与在第二张表找到的这个仓库名称对应的新的物料编码（即插入的A列）一致，如果一致的话，就将这一行对应的“期初数量”，赋值给第一张表的K6单元格）

我写了一半，老是出错（提示with块未设置或对象变量未设置），改了好多次还是不行。求各位高人看一下我的写的，到底出错在哪里，麻烦帮我完善一下。虽然函数公式我实现了（lookup(1,0/((表1的仓库名称=表2的仓库名称）*（表1的物料编码=表的新的物料编码）），返回表2的期初数量），但是感觉不够智能化，这些数据是从不同的系统导出来的，每天都会不一样。