Deleting a Row with a specific data shown.

[princ_wns]

Hi You Can refer this

Public Sub DeleteRow()
    
    Dim strC1       As String
    Dim strC2       As String
    Dim strSht      As String
    Dim rngData     As Range
    Dim lngColumns  As Long
    Dim rngCell     As Range
    
    strSht = "Sheet1"   'Here you can type the sheet name
    strC1 = "Opened"    'Here add the first criteria
    strC2 = "Received"  'Here add the secod Criteria
    lngColumns = 9      'Here add the columns No in which your criteria may exist
                        
    With ThisWorkbook.Worksheets(strSht)
        Set rngData = .Range("A1:Q1000")
        For Each rngCell In rngData.Columns(lngColumns)
            If rngCell.Value = strC1 Or rngCell.Value = strC2 Then
                rngCell.EntireRow.Delete
            End If
        Next
    End With
    
    strC1 = vbNullString
    strC2 = vbNullString
    strSht = vbNullString
    Set rngData = Nothing
    Set rngCell = Nothing
    lngColumns = Empty    
End Sub