Macro indsæt række med formatering

Hej.

Jeg har, med hjælp fra bruger herinde, lavet en macro der indsætter en række et bestemt sted på en side.

Jeg kunne godt tænke mig at få den til at kopire de formler med som var i den række der står under.

Jeg bruger følgende macro:

Row = WorksheetFunction.Match("Hustype 2", Range("B:B"), 0) + 1
Sheets("1").Range("A" & Row).EntireRow.Insert Shift:=xlDown

Den indsætter en ny række præcis hvor jeg ønsker det. Dog vil jeg meget gerne at den tager formateringen med fra de celler der står under.

Kan det lade sig gøre?

Se billede: http://web.gratisupload.dk/f/8s8rkcj4lr/

På forhånd tak.
Mvh
Søren J.