Макрос поиска значения ячейки А1

[Serega_1]

Добрый день! Подскажите пожалуйста макрос. В колонке А несколько комплектов повторяющихся чисел. Нужно убрать лишние комплекты и оставить только верхний. Значения в колонке будут меняться. См. файл.
Т.е нужно найти макросом значение ячейки А1 (в данном файле 18 строка, но может быть и другая) и удалить её и то, что ниже.

[Казанский]

Sub Se()
Dim x
  Set x = Range("A:A").Find(Range("A1").Formula, Range("A1"), xlFormulas, xlWhole, , xlNext)
  If x.Row > 1 Then Range(x.Row & ":" & Rows.Count).Delete
End Sub

Учтите, что проверяется только первая ячейка, а не весь комплект чисел.

[Serega_1]

Спасибо Вам большое! Получилось! Тема закрыта.