I have the following macro set up but it keeps hanging up on the first
indented line.

Sub Insertrow()
'
' Insertrow Macro
' Macro recorded 10/6/2005 by DCTC
'
' Keyboard Shortcut: Ctrl+i
'
Dim iLastRow As Long
Dim i As Long
iLastRow = ActiveSheet.Cells(Rows.Count, "F").End(x1Up).Row
For i = iLastRow To 1 Step -1
If Cells(i, "F").Value = "Total" Then
Rows(i + 1).EntireRow.Insert
End If
Next i
End Sub