Date edited in next cell

I would like to indicate the date a cell was first used or last edited. I would like to show this date/time in the next cell.

You can use the code below.

Please Login or Register  to view this content.

Need to restrict which cells it acts on (in this case, I made it act only if a change is made in column 4 = column D). Otherwise, the act of writing the date in the next cell is also a "change", which will cause the macro to "fire" again, and again, putting the date in every column on that row.