Delete Values from A3, M3 cell when any columns clicked except D & J

[mahmad558]

I want to delete values from Cell A3 & M3 when clicked on any column except Column "D" & Column "J", below code doesnt do anything except giving error.

r = Range("D")
c = Range("J")
Range("A3,M3").ClearContents