Sub Macro1()
On Error Resume Next
Range("A1:B2").Copy
Columns("A:A").Select
Range("A" & Rows.Count).Activate
Selection.Find(What:="Total", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
MatchCase:=False, SearchFormat:=False).Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub