post entries but keep formulas

hi after a long time have finally done it ,made a macro

Sub macro22()
Range("t2:t42").Formula = "=h2:h42+7"
End Sub

,here it is if it helps anyone else
cheers colin