delete entire row on contiguous duplicates

[ninez87]

hi i need help about cleaning entire row from this data output

Conditions required

Run a loop searching for the word "Speciale" in column A1
If found (looking if b2 = "Quantita" and deletes row b1)




in red is what i need to delete
Some can help me ?

A B

Speciale 175377.2 QG #LDP 2443 #AVP 4748	Quantita
ECEPI443	1
EPILZ750103	1
ESI6AV21232DB030AX0	1
ESI6ES72151AG400XB0	1
ESI6ES72231BL320XB0	2
ESI6ES79548LC020AA0	1
EDATTHQQS00	1
Speciale 175427 QG #LDP 2442 #AVP 4726	Quantita
ECEBGS8625	1
ECEOCM50100BB07	1
EPILZ750103	1
ESI3LD22130TK51	1
ESI6ES72151AG400XB0	1
ESI6ES72231BL320XB0	1
ESI6ES79548LC020AA0	1
ESI6AV21232DB030AX0	1
ETMXB4BVB6	1
Speciale 175364 BD #LDP 2441 #AVP 4740	Quantita
ETMA9F79102	1
Speciale 175364 QG #LDP 2439 #AVP 4751	Quantita
Speciale 175346 QG #LDP 2438 #AVP 4750	Quantita
ECEOCM50100BB07	1
EPILZ750103	1
ESI3LD22130TK51	1
ESI6ES72151AG400XB0	1
ESI6ES72231BL320XB0	1
ESI6ES79548LC020AA0	1
ESI6AV21232DB030AX0	1
ETMXB4BVB6	1
Speciale 175364 BD #LDP 2441 #AVP 4740	Quantita
Speciale 175364 QG #LDP 2439 #AVP 4751	Quantita
Speciale 175346 QG #LDP 2438 #AVP 4750	Quantita
GIA IN ORDINE DA UFFICIO TECNICO - NON SERVE ORDINARE!!!	Quantita <tbody> </tbody>

<tbody>
</tbody>

 

[JackDanIce]

Try:

Sub RemoveQuantita()


    Dim arrIn()     As Variant
    Dim x           As Long
    Const Quantita  As String = "Quantita"
    
    x = Cells(Rows.Count, 1).End(xlUp).row
    arrIn = Cells(1, 1).Resize(x, 2).Value
    
    For x = LBound(arrIn, 1) To UBound(arrIn, 1) - 1
        If arr(x, 2) = Quantita Then
            If arr(x + 1, 2) = Quantita Then arr(x, 1) = vbNullString
        End If
    Next x
    
    Application.ScreenUpdating = False
    With Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2))
        .Value = arr
        .Offset(, 1).Resize(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
    Application.ScreenUpdating = True
    Erase arr
    
End Sub