Help with MACRO

[jddonadio]

Good evening:



Is it possible to insert a formula in the below listed MACRO. [Column D is
always a date. I need Column F to display a date 14 days greater]



Thanks in advance

John



Sub EnterGrievance()

'

' EnterGrievance Macro

' Macro recorded 2/25/2008 by John Donadio

'

' Keyboard Shortcut: Ctrl+c

'Range("A12").Select



Dim FromRng As Range

Dim ToRng As Range



With Worksheets("Data Sheet")

Set FromRng = .Range("A12:M12")

End With



With Worksheets("Grievance Log")

Set ToRng = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)

End With



FromRng.Copy _

Destination:=ToRng



Sheets("Data Sheet").Select

Range("E19").Select

End Sub

 

[Barb Reinhardt]

I'm not sure where you want it, but you'd want something like this

FromRange.offset(0,5).formulaR1C1 = FromRange.offset(0,3).value2 + 13