VBA：复制，查找日期，粘贴偏移量

Question

这里的VBA新手希望您能提供帮助。

我想要一些代码（按钮），用于将数据复制到名为“ WklyBR” N18：Y31的工作表中，然后

在名为“每月”的工作表上，找到与“维护日1”中的日期匹配的单元格（在日历上）（每月，单元格CO14）。

从那天起，我想向下偏移3行并粘贴。 （输入当天的事件）

总体意图是用户在“维护日1”旁边输入日期，单击一个按钮，Excel将把维护日1的事件粘贴到月度表的日历上。

示例图片：

如果您有解决方案，那么我还将复制Maint第2天，第1天，第1周五和第3周四的代码。

谢谢！