I did a form with vba that inserts a new row with data but I want to that row to have a formula that is on a cell from above.

Here are some pictures of the sheet.
https://drive.google.com/file/d/0B2k...ew?usp=sharing


Here´s the picture of the sheet when the data from the form is inserted.
https://drive.google.com/file/d/0B2k...ew?usp=sharing

Here´s the picture of my form:
https://drive.google.com/file/d/0B2k...ew?usp=sharing

This is the code used on the form:



Option Explicit
Sub Captura_Datos()
'Declaración de variables
'
Dim strTitulo As String
Dim Continuar As String
Dim TransRowRng As Range
Dim NewRow As Integer
Dim Limpiar As String
'
strTitulo = "formato"
'
Continuar = MsgBox("Dar de alta los datos?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub
'
Set TransRowRng = ThisWorkbook.Worksheets("Datos").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
With ThisWorkbook.Worksheets("Datos")
.Cells(NewRow, 1).Value = Date
.Cells(NewRow, 2).Value = ThisWorkbook.Sheets(1).Range("C6")
.Cells(NewRow, 3).Value = ThisWorkbook.Sheets(1).Range("C9")
.Cells(NewRow, 4).Value = ThisWorkbook.Sheets(1).Range("C12")
.Cells(NewRow, 5).Value = ThisWorkbook.Sheets(1).Range("C15")
.Cells(NewRow, 6).Value = ThisWorkbook.Sheets(1).Range("F9")
.Cells(NewRow, 7).Value = ThisWorkbook.Sheets(1).Range("F12")
.Cells(NewRow, 8).Value = ThisWorkbook.Sheets(1).Range("F15")
.Cells(NewRow, 9).Value = ThisWorkbook.Sheets(1).Range("H6")
.Cells(NewRow, 10).Value = ThisWorkbook.Sheets(1).Range("H9")
.Cells(NewRow, 11).Value = ThisWorkbook.Sheets(1).Range("H12")
.Cells(NewRow, 12).Value = ThisWorkbook.Sheets(1).Range("H15")
.Cells(NewRow, 13).Value = ThisWorkbook.Sheets(1).Range("J12")


End With
'
MsgBox "Alta exitosa.", vbInformation, strTitulo
Limpiar = MsgBox("Deseas limpiar los campos de la captura?", vbYesNo, strTitulo)
If Limpiar = vbYes Then
With ActiveWorkbook.Sheets(1)
.Range("C6").ClearContents
.Range("C9").ClearContents
.Range("C12").ClearContents
.Range("C15").ClearContents
.Range("F9").ClearContents
.Range("F12").ClearContents
.Range("H6").ClearContents
.Range("H9").ClearContents
.Range("H12").ClearContents
.Range("H15").ClearContents
.Range("J12").ClearContents




'ClearContents no funciona en celda combinada...
.Range("F15").Value = ""
End With
Else
End If
'
End Sub