Private Sub Worksheet_Change(ByVal Target As Range)
r = Target.Row
c = Target.Column
If c <> 1 Then Exit Sub
Application.EnableEvents = False
NextLineValue = Cells(r + 1, c)
If NextLineValue = "Total" Then
Target.EntireRow.Copy
Rows(r + 1).Insert
Rows(r + 1).SpecialCells(xlConstants).ClearContents
End If
Application.EnableEvents = True
End Sub