сравните одну строку с другой строкой, чтобы всплывающее сообщение для дубликатов и ограничить переход к следующей строке, если дубликаты все еще присутствуют

Question

этот код не работает должным образом, он должен сравниваться следующим образом (1-я строка сравнивается со 2-й, 1-й и 3-й и т. Д., Если есть какое-либо дублирующее значение, чем следует ограничить для перемещения следующей строки)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Columns("A:F")) Is Nothing Then
        If Target.Value <> "" Then
            If Target.Value = Target.Offset(-1, 0).Value Or _
                Target.Value = Target.Offset(1, 0).Value Then

                    MsgBox "Duplicate when introduced " & Target.Value & " in " & Target.Address
                    Debug.Print Target.Address

            End If
        End If
    End If

End Sub