MACRO-ELIMINARE RIGHE IN MODO SELETTIVO

---

Sub Preserve_6()
ur = Range("G" & Rows.Count).End(xlUp).Row
With Range("G1:G" & ur)
Set a = .Find(800, after:=Cells(1, 7), searchdirection:=xlPrevious)
If a Is Nothing Then Exit Sub
LrSet = a.Address
End With
   
ripeti:
With Range(LrSet & ":G1")
    Set a = .Find(800, after:=Cells(1, 7), searchdirection:=xlPrevious)
    If a Is Nothing Then Exit Sub
    LrSet = a.Address
    LrRow = a.Row
End With
   
With Range(LrSet & ":G1")
    Set a = .Find(400, after:=Cells(1, 7), searchdirection:=xlPrevious)
    If a Is Nothing Then Exit Sub
    FrRow = a.Row + 1
    FrSet = a.Address
End With
If LrRow = FrRow Then Exit Sub
k = 0
For i = FrRow To LrRow
    If Cells(i, 7) <> 800 Then Exit For
    k = k + 1
    If k <> 6 Then
        Rows(i).EntireRow.Delete 
        i = i - 1
    End If
Next
    LrSet = FrSet
    GoTo ripeti
End Sub

---