how to delete data in two columns based on multiple criteria?

Hi.
how to delete data in two columns based on multiple criteria?

Option Explicit
Public Sub DeleteRows_Two_Columns()
   Dim iLastRow As Long
   Dim aLastRow As Long
   Dim i As Long
    iLastRow = Cells(Rows.Count, "T").End(xlUp).Row
    aLastRow = Cells(Rows.Count, "I").End(xlUp).Row
  For i = iLastRow To 2 Step -1
        Select Case Cells(i, "T").Value
            Case "CSAV LONCOMILLA"
            Case "CAP HARALD"
            Case "CAP ISABEL"
            Case "CAP HENRI"
            Case "CAP IRENE"
            Case "CAP IRENE"
            Case "CSAV LAJA"
            Case "CAP JERVIS"
            Case "CSAV JERVIS"
            Case "CSAV LONCOMILLA"
            Case "LIMARI"
            Case "CSAV LIMARI"
            Case Else
                Rows(i).Delete
            End Select
    Next i
      
For y = LastRow To 2 Step -1
If Cells(y, "I").Value = "SOROCABA" Then Rows(y).EntireRow.Delete
Next y
     
End Sub

Try this,

Public Sub DeleteRows_Two_Columns()
   Dim iLastRow As Long
   Dim aLastRow As Long
   Dim i As Long
    iLastRow = Cells(Rows.Count, "T").End(xlUp).Row
    aLastRow = Cells(Rows.Count, "I").End(xlUp).Row
   For i = iLastRow To 2 Step -1
        If Cells(i, "T").Value <> "CSAV LONCOMILLA" And Cells(i, "T").Value <> "CAP HARALD" And Cells(i, "T").Value <> "CAP ISABEL" And Cells(i, "T").Value <> "CAP HENRI" _
            And Cells(i, "T").Value <> "CAP IRENE" And Cells(i, "T").Value <> "CSAV LAJA" And Cells(i, "T").Value <> "CAP JERVIS" And Cells(i, "T").Value <> "CSAV JERVIS" _
             And Cells(i, "T").Value <> "LIMARI" And Cells(i, "T").Value <> "CSAV LIMARI" Then
                Rows(i).Delete
        End If
  Next i
      
For y = LastRow To 2 Step -1
If Cells(y, "I").Value = "SOROCABA" Then Rows(y).EntireRow.Delete
Next y
     
End Sub

Option Explicit
Public Sub DeleteRows_Two_Columns()
   Dim iLastRow&, i&
    iLastRow = Cells(Rows.Count, "T").End(xlUp).Row
  For i = iLastRow To 2 Step -1
        Select Case Cells(i, "T").Value
            Case "CSAV LONCOMILLA"
            Case "CAP HARALD"
            Case "CAP ISABEL"
            Case "CAP HENRI"
            Case "CAP IRENE"
            Case "CAP IRENE"
            Case "CSAV LAJA"
            Case "CAP JERVIS"
            Case "CSAV JERVIS"
            Case "CSAV LONCOMILLA"
            Case "LIMARI"
            Case "CSAV LIMARI"
            Case Else
                Rows(i).Delete
            End Select
If Cells(i, "I").Value = "SOROCABA" Then Rows(i).EntireRow.Delete
Next i
End Sub