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

If TCol = 8 Then
    Cells(Target.Row, "J").FormulaR1C1 = "=IF(RC8="""","""",RC8+40)"
End If

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:

If TCol = 8 Then
Cells(Target.Row, "J").FormulaR1C1 = "=IF(RC8="""","""",RC8+40)"
Cells(Target.Row, "I").FormulaR1C1 = "=IF(RC8="""","""",RC8+40)"
End If

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?

If TCol = 8 Then
Cells(Target.Row, "J").FormulaR1C1 = "=IF(RC8="""","""",RC8+40)"
Cells(Target.Row, "I").value=Cells(Target.Row, "J").value
End If

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

Thank you so much