根据公式更改单元格值

Question

当手动更改AC列中单元格中的值时，以下脚本可以正常工作。如何修改此脚本，以便在AC列中的单元格值通过公式更改时可以正常工作？

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("AC:AC")) Is Nothing Then
    Range("AD" & Target.Row) = Range("AC" & Target.Row)
End If

End Sub