Delete blank row above cells with specific words.

This code works well to insert a row. But what I want is to reserve the code to delete the row instead of insert.

Sub InsertRows()
Dim i As Long
i = 2
Do Until Trim(Cells(i, 1)) = ""
If Cells(i, 1) = "Total" Then
Cells(i, 1).EntireRow.Insert
i = i + 2
Else
i = i + 1
End If
Loop
End Sub

Thanks,
Brianne

Moderator's Edit: Use code tags when posting code. To do so in future, select your code and click on the # icon at the top of your post window.