How to Delete Multiple Consecutive Blank Rows - Delete all Blank Rows

Sub Mitt()
Dim LR As Long, i As Long
Application.ScreenUpdating = 0
On Error Resume Next
LR = Cells(Rows.Count, 3).End(xlUp).Row
For i = LR To 2 Step -1
    If Cells(i, 3) = "" And Cells(i, 2) = "" And Cells(i, 3) = "" Then
    Rows(i).EntireRow.Delete
    End If
    If Cells(i, 3) = "" And Cells(i, 2) <> "" And Cells(i, 3) <> "" Then
    End If
Next i
Application.ScreenUpdating = 1
End Sub