Option Explicit
Option Base 1
Sub DeleteIfKeywords()
Dim r As Long, lr As Long, n As Long, k, i As Long
Application.ScreenUpdating = False
k = Array("Fiat", "Renault")
lr = Cells(Rows.Count, 1).End(xlUp).Row
For r = lr To 2 Step -1
n = 0
For i = LBound(k) To UBound(k)
If InStr(Cells(r, 1), k(i)) = 0 Then
n = n + 1
Exit For
End If
Next i
If n = 0 Then Rows(r).Delete
Next r
Application.ScreenUpdating = True
End Sub