VBA to insert blank row after repeating cell values in a column

Sub InsertBlankRows()

Dim LastRow As Long
Dim i As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = LastRow To 2 Step -1
    If i = 2 Then
        'Do nothing
    ElseIf Cells(i, "A") <> Cells(i - 1, "A") Then
        Cells(i, "A").Insert
    End If
Next i

End Sub

Sub InsertRows()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  With Range("A1", Range("A" & Rows.Count).End(xlUp))
    .Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(1), _
    Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    .Offset(, -1).AutoFilter Field:=1, Criteria1:="=*total*"
    .Offset(2).SpecialCells(xlCellTypeVisible).ClearContents
    .AutoFilter
    .Offset(, -1).EntireColumn.Delete
    .EntireColumn.RemoveSubtotal
  End With
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
End Sub

Sub InsertRows()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Range("A1", Range("A" & Rows.Count).End(xlUp))
.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(1), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
.Offset(2, -1).SpecialCells(xlCellTypeConstants).Offset(, 1).ClearContents
.Offset(, -1).EntireColumn.Delete
.EntireColumn.RemoveSubtotal
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Cells(i, "A").Insert

Cells(i, "A").EntireRow.Insert

Rows(i).Insert