Trova testo in due celle consecutive sostituisce testo in altre celle

Buon giorno,
ho bisogno di aiuto in un file con circa 650.000 righe.

Io dovrei cercare nella colonna "E" di un foglio Excel la parola "Verb" con la condizione che si ripeta in due celle consecutive della Colonna "E" ad es. in E1 "Verb" ed E2 "Verb" e si trova ancora in E30 ed E31 nell'esempio allegato.
La seconda condizione è la seguente: nella cella "D2" (nel caso la parola "Verb" si è trovata nelle celle E1 e E2) sia presente la parola "sum" (nel secondo caso dell'esempio "sum" è in cella D31).
Se le due condizioni si realizzano: 1) la parola "Verb" presente in due celle consecutive della colonna "E"; 2) e nella cella D (la "seconda" contigua al secondo "Verb") è presente la parola "sum":
3) che nella cella "H" corrispondente alla riga del primo "Verb" vi sia la parola "passive" o "deponent" (e non "active").

- devo inserire nella riga dove vi è la parola "sum" (presente in cella D) cancellando il contenuto da cella "F" fino a cella "P" della riga e inserendo le seguenti parole "auxiliary" in cella "H" e "@@@@@" in cella "P" (io poi sostituirò "@@@@@" con una frase abbastanza lunga sempre eguale).

Allego un file di esempio: nelle righe da 1 fino a 31 vi è il testo su cui effettuare la ricerca (ho evidenziato in rosso le condizioni di ricerca e le celle da cancellare da F (comunque le prime celle scritte dovrebbero essere da I in poi) fino a P) e nelle righe da 36 a 66 il Risultato da ottenere (anche qui lo ho evidenziato in rosso per miglior visibilità).
Grazie
Pasquale

Grazissime,
l'ho lanciata nel file e sembra perfetta.
Mi ha evitato ore e ore di ricerca.
La utilizzo e se ho problemi scrivo nuovamente.

Pasquale

Ciao, avrei bisogno di aiuto per modificare la macro:
poiché nel foglio in questione, al soddisfacimento delle condizioni riportate nel primo post:
If Cells(r, "E") = "Verb" And Cells(r + 1, "E") = "Verb" Then
If Cells(r + 1, "D") = "sum" And (Cells(r, "H") = "passive" Or Cells(r, "H") = "deponent") Then
Cells(r + 1, "H") = "auxiliary"

dovrei sostituire il contenuto (il testo) della cella "C" della riga (r, "E") con il suo stesso (ad esempio" factum") in aggiunta il segno "_" e quindi il contenuto della cella "C" della riga sottostante (est)(r + 1, "E") (eliminando l'intera riga r + 1, "E") ho modificato la macro aggiungendo
Cells(r, "C") = "r, C" + "_" + "r + 1, C", per ottenere il testo "factum_est" (senza gli apici) ma il risultato ottenuto è che nella cella C mi esce: r, C_r + 1, C
e non il testo presente in cella "C" (factum) e in cella "C + 1"(est) con in mezzo il segno "_".

Macro modificata

Sub a()
LR = Cells(Rows.Count, "E").End(xlUp).Row
For r = 1 To LR
If Cells(r, "E") = "Verb" And Cells(r + 1, "E") = "Verb" Then
If Cells(r + 1, "D") = "sum" And (Cells(r, "H") = "passive") And (Cells(r, "J") = "perfect" Or Cells(r, "J") = "pluperfect") Then
Cells(r + 1, "O") = "to be = auxiliary (Periphrastic passives)"

Cells(r, "C") = "r, C" + "_" + "r + 1, C" mia modifica
End If
End If
Next
End Sub

____________________________________
Inoltre vorrei che la macro mi riportasse il testo presente in colonna "B" nelle righe successive fino alla prima cella precedente a quella vuota.
Allego esempio in foglio 1 (testo) il testo normale e in foglio 2 (risultato) il testo desiderato.

non ho capito bene, comunque se hai intuito la soluzione la riga

deve diventare

Grazie Patel tutto OK.