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