Option Explicit Sub EliminaRighe() Dim ur As Long 'ultima riga tabella (colonna B) Dim riga As Long 'riga attiva Dim col As Long 'colonna attiva Dim dist As Long 'distanza verso cella precedente Dim prima As Long 'prima distanza rilevata ur = Range("B" & Rows.Count).End(xlUp).Row For riga = ur To 2 Step -1 'inizia dall'ultima riga a salire For col = 2 To 5 'cicla le colonne (da B a F-1) dist = Cells(riga, col + 1) - Cells(riga, col) 'calcola distanza If col = 2 Then prima = dist 'memorizza la prima distanza Else If prima <> dist Then GoTo salta 'se distanza diversa è inutile procedere End If Next col Rows(riga).EntireRow.Delete 'elimina intera riga dato che le celle hanno distanza uguale salta: Next riga End Sub