如何将工作表Closing相邻单元格值匹配日期导入Control主表？

我有一个名为Control的主表和若干其他工作表（每日数量可能变动，但所有工作表名称都在Control表中）。

Control主表结构 #

第3行是日期，第4行对应每个日期的“Opening”和“Closing”，布局如下：

Date 1    Date 1    Date 2    Date 2
   Opening  Closing  Opening  Closing

其他工作表规则 #

当前有ABCD、EFGH两个工作表，每日数量可能变化：

• 每个工作表的E3单元格固定为工作表名称，E4单元格固定为日期
• 表中存在“Closing”字符串，需要将其相邻单元格的数值，匹配对应日期后导入Control表

已编写的VBA代码（未完成） #

Dim ws as Worksheet
Dim lastrow as Long
Dim Nextrow as Long
Dim Range as Range
Dim rFind as range

For each ws in ActiveWorkbook.Worksheets
    If ws.Name <> "Control" then
        Set rFind = .Find(What:="Closing", Lookat:=xlwhole, MatchCase:=False, SearchFormat:=False)

内容的提问来源于stack exchange，提问作者Amy