Spostare le cinquine dal gruppo

Ciao a tutti e Buon Anno, mi servirebbe il vostro aiuto per spostare le cinquine dove nella stessa riga è presente il numero 3 oppure il 4; le cinquine andrebbero messe tutte una sotto l'altra senza spazi vuoti dalla colonna DY o DZ o EA come preferite. Sarebbe perfetto con un pulsante che fa tutto in automatico visto il grande numero di cinquine da controllare. Ho allegato il file.

Ad esempio nella riga 17 controllando i numeri a partire dalla colonna H sino alla colonna DW ci sono due 3, la cinquina della riga 17 va spostata o duplicata a destra dopo la colonna DX.

Oppure se vien meglio anzicché spostarle, lasciare solo le cinquine che a destra hanno il 3 o il 4 ed eliminare tutte le altre, senza lasciare righe vuote se possibile.

Grazie mille.

ciao

da inserire nel modulo del foglio

---

Option Explicit
Sub eliminaRiga()
Dim i As Long
Dim Cella As Variant
Dim conta As Long
conta = 0
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 2).End(xlUp).Row To 4 Step -1
For Each Cella In Range(Cells(i, "H"), Cells(i, "DW"))
If Cella.Value = 3 Or Cella.Value = 4 Then conta = conta + 1
Next Cella
If conta = 0 Then Rows(i).Delete
conta = 0
Next i
Application.ScreenUpdating = True
End Sub

---

riallego il tuo file con inserita questa

Di nuovo grazie!

Un saluto a tutti.
Arrivo con ore di ritardo, ormai ho partorito e pubblico la mia versione della macro lo stesso. Ho scelto di eliminare il superfluo visto che è la soluzione più semplice.: