Macros in Excel

This from David McRitchie

www.mvps.org/dmcritchie/excel/insrtrow.htm

Select the range and then run this code.

Sub InsertRow_A_Chg()
Dim irow As Long, vcurrent As String, i As Long
'****find last used cell in Column A
irow = Cells(Rows.Count, "A").End(xlUp).Row
'****get value of that cell in Column A (column 1)
vcurrent = Cells(irow, 1).Value
'****rows are inserted by looping from bottom
For i = irow To 2 Step -1
If Cells(i, 1).Value <> vcurrent Then
vcurrent = Cells(i, 1).Value
Rows(i + 1).Insert
End If
Next i
End Sub

So far so good, just need to change one thing and I haven't got it right yet. Here's how it looks
ActiveSheet.Unprotect
Application.Goto Reference:="SortInsert"
Selection.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dim irow As Long, vcurrent As String, i As Long
'****find last used cell in Column A
irow = Cells(Rows.Count, "A").End(xlUp).Row '****get value of that cell in Column A (column 1)
vcurrent = Cells(irow, 1).Value
'****rows are inserted by looping from bottom
For i = irow To 2 Step -1
If Cells(i, 1).Value <> vcurrent Then
vcurrent = Cells(i, 1).Value
Rows(i + 1).Insert
End If
Next i
Range("G70").Select
ActiveCell.FormulaR1C1 = "Total"
Range("J70").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-64]C:R[-1]C)"
Range("G71").Select
Application.Goto Reference:="R1C1"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

On the row '****find last cell used in Column A
I need it to start on row 6, the first 5 rows are headers.

This question was closed by the author