Macro eliminar fila si existen datos especificos

Sub EliminaFilas()
Dim i As Long, iArr, iRow As Integer, vList As Variant
     
 Application.ScreenUpdating = False
 vList = Array("Garantia", "Cambio", "Nuevo", "Usado")

   With ActiveSheet
   iRow = .Cells(.Rows.Count, 1).End(xlUp).Row
     For i = iRow To 1 Step -1
        With .Cells(i, 1)
          For iArr = LBound(vList) To UBound(vList)
            If LCase(.Value) = LCase(vList(iArr)) Then
               .EntireRow.Delete
               Exit For
            End If
          Next iArr
        End With
     Next i
   End With

Application.ScreenUpdating = True

End Sub