求大神指点：利用VBA Calculate跟踪记录单元格变化，不知道哪里…

详情如下
某特定单元格数据发生了变化，该变化并非人为更改而是通过公式计算得出的，想通过VBA Calculate跟踪记录其变化 Private Sub Worksheets_Calculate(ByVal Target As Range)
If Not sheet.Intersect(Target, [A1]) Is Nothing Then
Application.EnableEvents = False
y = Sheets(2).Columns(1).Find("*", , xlValues, , , 2).Row
Sheets(2).Range("A" & y + 1) = Sheets(1).Range("A1").Value Sheets(2).Range("A1") = "" End If
Application.EnableEvents = True End Sub 运行发现，表1中A1发生变化时，表2中没反应，不知道哪里出错了？
我的原始数据是通过新建web查询得来的，可以自动更新。对其中的一个单元格数据进行公式处理，放到一个单元格里，假设是A1；因此A1也是变化的。
我想记录A1的历史变化。