Sub Suppr()
Dim i As Integer
For i = Range("E" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 5) = "X" And Cells(i, 5) = Cells(i, 7) Then Cells(i, 5) = ""
Next
End Sub
Sub DelNoLoop()
With Range("H5:H48")
.FormulaR1C1 = "=IF(RC[-3]&RC[-1]=""XX"",1,""$$"")"
.SpecialCells(-4123, 1).Offset(, -3) = ""
.ClearContents
End With
End Sub