求大神：修改一段代码 Calculate事件的

下面一段代码可以将单元格的数据历史自动保存的，对于带公式的单元格有时候保存不及时，求大神改成 Calculate事件的
Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
a = Cells(1, "k")
Range("a1") = a
Range("b1") = "历史记录"
Cells(Rows.Count, 2).End(3).Offset(1, 0) = a
i = i + 1
ActiveSheet.Range("$B$1:$B$13080").RemoveDuplicates Columns:=1, Header:=xlNo
Application.EnableEvents = True
End Sub