每次单元格的值更改时，将范围复制并粘贴到sheet2上的下一个打开列

Question

我尝试了各种各样的功能试图让它工作但是对于我的VBA技能水平来说这有点太复杂了，非常感谢任何帮助。

我有一个包含2个工作表的工作簿，第一个包含大量数据和公式，第二个包含两个空表，用sheet1填充特定日期。 Sheet1有一列日期范围（＆＃34; DK7：DK39＆＃34;），范围从5/1/1986到5/1/2018。只要在此列中更改了第一个日期（＆＃34; DK7＆＃34;），以后年份中的所有其他日期将自动更新到给定年份的同一天。通过这些更改，将使用基于日期特定数据确定的新数据重新填充两个单独的列。

我有一个代码循环目标/第一个日期单元格（＆＃34; DK7＆＃34;）到我需要数据的日期：

Dim i As Date
For i = DateSerial(1986, 5, 1) To DateSerial(1986, 8, 28)
Range("DK7").Value = i
Next i

我需要添加到此代码中，以便在循环播放日期时创建需要记录的新数据，范围（＆＃34; DS7：DS38＆＃34;）＆amp; （＆＃34; DT7：DT38＆＃34;）被复制并粘贴到sheet2上两个相应范围的下一个打开列中，这两个范围的格式为1986-2017年作为y轴列和5/1到8/28作为x轴行。

例如，当1986年到2017年，在Sheet1中将5/1更改为5/2时，我需要范围内的数据（＆＃34; DS7：DS38＆＃34;）＆amp; （＆＃34; DT7：DT38＆＃34;）被复制并粘贴到sheet2.Range（＆＃34; E4：E35＆＃34;）和（＆＃34; E41：E72＆＃34;）在日期之前当我需要范围内的数据时，sheet1循环到5/3（＆＃34; DS7：DS38＆＃34;）＆amp; （＆＃34; DT7：DT38＆＃34;）被复制并粘贴到sheet2.Range（＆＃34; F4：F35＆＃34;）和（＆＃34; F41：F72＆＃34;）