Macro Add a new line to the top of a table with formulas

I'm trying to add a line at the top of a table and have the formulas included. The macro I'm using is not copying the formulas in column I and not copying the currency format in columns G, H and I . What do I need to add to make it work?

It did not work; however, This is the first macro I have attempted so it might be operator error.
I double clicked the "new row button", removed the code I had already done, and cut/ pasted what you had. It did not work. What went wrong?
Here is the code I have so far. Is there something I can add to just have the formulas added?
Sheets("INVOICE ENTRY").Range("A27").Select
ActiveCell.EntireRow.Insert Shift:=xlDown

Sheets("INVOICE ENTRY").Range("b27:m27").Select
Selection.Borders.Weight = xlThin

Sheets("INVOICE ENTRY").Range("b27:m27").Select
Selection.Interior.ColorIndex = none