Sub DeleteRowIf()
Dim i As Long, lr As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lr
If Range("B" & i).Value = "Specific" And Range("B" & i - 1).Value = "" Then
Cells(i, 2).EntireRow.Delete
End If
Next i
End Sub
Dim i As Long, lr1 As Long
lr1 = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lr
If Range("B" & i).Value = "Specific" & strName & "*" And Range("B" & i - 1).Value = "" Then
Cells(i, 2).EntireRow.Delete
End If
Next i
End With
h.AutoFilterMode = False
Dim i As Long, lr1 As Long
lr1 = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lr
If Range("B" & i).Value Like "*" & "Specific" & "*" And Range("B" & i - 1).Value = "" Then
Cells(i, 2).EntireRow.Delete
End If
Next i
End With
h.AutoFilterMode = False