如何编写宏来复制复制数据旁边的日期或文件名列

Question

我正在尝试编写一个宏来打开模板文件Sheet1中单元格A1：A4中指定的文件路径，并将数据从打开的工作簿复制/粘贴到模板的Sheet2。

问题是因为我正在堆叠来自多个文件的数据，我想为数据插入每个数据的日期，例如。 A栏。

Sheet1中的单元格B1：B4具有日期。

所以最终结果应该是：

01/01/2017     Apple     Orange     Pear

这可能吗？

我的代码尝试：

Sheets("Macro").Select
Range("C6").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Actual").Select 
Range("D2:D18").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
:=False, Transpose:=False 

问题是复制的数据将是不同的行，而D2：D18的位是静态的。