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