如何编写一个macros来复制复制数据旁边的date或文件列

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

问题是因为我从多个文件中堆叠数据，我想插入每个数据旁边的date，例如。 专栏A.

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

所以最终的结果应该是这样的：

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位是静态的。