在C4：V4中找到包含今天日期的单元格，并将内容粘贴到下面的单元格中

Question

我正在试图弄清楚如何编写代码：

• 复制数组A的内容，
• 在包含日期的标题中查看数组B
• 查找当前日期
• 并将内容直接粘贴到该单元格下方。

到目前为止，我设法达到的最佳效果是如果我特意输入今天的日期，就会找到一个宏找到日期。

编辑：我试图重新设置一个记录宏，当我第一次记录它运行的同一个宏时，下一次它并非一下子都没有。

Sub Macro1()
Dim myDate As String
myDate = Format(Date, DDMMYYY)
Range("A5:A11").Select
Selection.Copy

Range("Table29[[#Headers],[23/01/2017]:[11/02/2017]]").Select
Selection.Find(What:="25/01/2017", After:=ActiveCell, LookIn:=xlFormulas _
    , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(7, 0)).Select
    ActiveSheet.Paste

End Sub

另外我不确定，但我觉得我缺少一些在VBA中激活Date功能的参考，因为无论何时我尝试使用它，我都会遇到错误，即使我尝试复制其他代码，我发现谷歌上有Date。

编辑2：我设法将粘贴内容放到所需的数组中，但我仍然很难让Date工作。如果我不手动输入日期，它将无法正常工作。