Try using

iLastRow = Range("F1").End(xlDown).Row

rather than

iLastRow = ActiveSheet.Cells(Rows.Count, "F").End(x1Up).Row

Best rgds
Chris Lav


"Don Guillett" wrote in message
...
a cursory look suggests you need to change 1 to l

--
Don Guillett
SalesAid Software

"Acct Supr - DCTC" wrote in
message
...
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