VB Paste.Speacial.values

Good morning,
Seems that when you work with complex things you forget about the small things...

I need help with the following:
I have this code to add a formula if a column is triggered

Please Login or Register  to view this content.

I also need this function to grab what is in that cell (J) and do a paste special.values to Cell(I).
I could do this but I’m just trying to make it easier to the user to not see the code in that column:

Please Login or Register  to view this content.

If anyone has two minutes to figure out how to add the second line to make the same thing but to do a paste special.values instead.

So in other words, if I add a date to Column H then it will add the same date in J but with a +40 and copy column J to paste.speacial.values in column I.

wouldnt this work?

Please Login or Register  to view this content.

rounakbhasin you are the man... Yes works perfect :D

Thank you so much