VBA Code:

```
'==============================================================================
Sub modInsertNewData()
'==============================================================================
Sheets("TST").Select
Range("B5:E5").Cells.Insert
Range("B5:E5").RowHeight = 12.75
'------------------------------------------------------------------------------
Range("B6").Copy
Range("B5").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("B5").Formula = "=R[1]C+7"
Range("B5").Copy
Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'------------------------------------------------------------------------------
Range("C6").Copy
Range("C5").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'------------------------------------------------------------------------------
Range("D6").Copy
Range("D5").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("D5").Formula = "=IF(RC[-1]="""","""",(ROUND(((RC[-1]-R[1]C[-1])/7),2)))"
'------------------------------------------------------------------------------
Range("E6").Copy
Range("E5").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("E5").Formula = "=RC[-2]-R[1]C[-2]"
'------------------------------------------------------------------------------
Range("C5").Select
End Sub
```