Macro To Add Empty Row And Partial Copy Formulas

I am looking for a macro that will insert a new row and copies the formulas from the row above, but not from all the columns.

This is the current situation:

A
B
C
D
E
F
G
H
I
J
K
L
M

Name
Project Nr.
Work Order
hours

[Code] ......

What I want is that if column G contains "11374340" an empty row will be inserted above and the formulas from column E until M to be copied a row down. And the sum function in the last row of M needs to be changed automaticly as well (if possible).

I already have the macro to insert a new empty row which is as follows:

Sub InsertRows()
Dim i, LastRow
LastRow = Range("G" & Rows.Count).End(xlUp).Row
For i = LastRow To 1 Step -1
If Cells(i, "G").Value = "11374340" Then
Cells(i, "G").EntireRow.Insert
End If
Next
End Sub