Macro to create a new row and copy data

[BigEInMT]

I am currently configuring a financial report which lists description data as well as financial data. I will post a copy of the layout below. What I'm looking to do, is to create a macro which would allow me to create a blank row above any row which contains the word Totals. I'd then like to cut the data from Column 15 and paste the data into Column A of the new blank row. I'd also like to Merge the cells from the first column through Column 8 for the new blank row. I'm going to post what the report looks like now and what ultimately I would like the report to look like after the macro is run.

Now:

	Column 1	Column 2	Column 3	Column 4	Column 5	Column 6	Column 7	Column 8	Column 9	Column 10	Column 11	Column 12	Column 13	Column 14	Column 15
Number: 1
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00	Description
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
Totals	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
Number: 2
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00	Description
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
Totals	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00

<colgroup><col><col span="9"><col span="2"><col span="2"><col><col></colgroup><tbody>
</tbody>

What I'd like it to look like:

	Column 1	Column 2	Column 3	Column 4	Column 5	Column 6	Column 7	Column 8	Column 9	Column 10	Column 11	Column 12	Column 13	Column 14	Column 15
Number: 1
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
Description
Totals	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
Number: 2
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
	Data	Data	Data	Data	Data	Data	Data	Data	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00
Description
Totals	$0.00	$0.00	$0.00	$0.00	$0.00	$0.00

<colgroup><col><col span="9"><col span="2"><col span="2"><col><col></colgroup><tbody>
</tbody>

 

[DanteAmor]

Try this

Sub Create_New_Record()
    Dim u As Long
    Application.ScreenUpdating = False
    For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If LCase(Cells(i, "A").Value) = LCase("Totals") Then
            Cells(i, "A")(2).EntireRow.Insert
            Cells(i, "A")(2).Value = Cells(i, 15).End(xlUp).Value
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "End"
End Sub