Sub deleteRows()
Application.ScreenUpdating = False
Dim LastRow As Long, x As Long
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For x = LastRow To 5 Step -1
If Cells(x, 3) <> Cells(x, 2) Then
Rows(x).EntireRow.Delete
End If
Next x
Application.ScreenUpdating = True
End Sub