Eliminare righe con numeri di uguale distanza

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