用VB代码根据内容查找填充并并自动添加行或删除行。

用求大神帮忙，用VB代码表二根据日期查找表一值班员姓名，填充到表二并根据查到到的内容自动添加行或删除行，最后一行合计上移或下移。，谢谢各位大神。