Что по мне, так слишком много лишнего. Цикл построен уже правильно - зачем менять значение переменной r?
А vsego я бы определял несколько иначе. В общем, мой вариант:

Я же спросил где их взять, чтобы выложить.
Нет. Мне казалось, я написал, что два года работал и все было ок. Головой не ударялся.
Я выложил скрипт, вы можете подставить свои данные. Только в чем смысл? Если все работало, и перестало. Может что-то сбилось.

А в вашем варианте удаление будет считать, что верхние данные в приоритете от нижних? Мне нужно не простое удаление случайных повторов, а именно впервую очередь снизу, т.к. сверху уже могут быть заполненные ячейки, и когда я снизу добавляю новые данные, они иногда повторяются и скрипт тер повторы.

The_Prist, см. ЛС.

Не нужно выдирать из контекста и защищать людей, которые не удосужились прочитать мой пост.


Значит в нем все же ошибку нашли?

Очень странно, т.к. до НГ у меня работало все при этом же количестве строк. После НГ - перестало.

Не нужно впадать в крайность. Я в отличии от большинства людей, что пишут в панике, постарался выдать всю информацию, которая в моей компетенции в первом посте. Если у вас люди сразу не читая задают стандартные вопросы (на автомате, т.к. для большинства это актуально), то не нужно обижаться, что я подчеркнул, что ответ есть в первом посте.

Там хитрое построение предложения, состояющее из вопросительного и утвердительного. Не уверен, что многие тут сидящие так хорошо знают русские сложные правила, чтобы их соблюдать. Мне после английского еще сложнее обратно адаптироваться под структуру предложений. Стараюсь писать как можно правильнее. Сильне не судите.

The_Prist, огромное спасибо за скрипт. Данный скрипт у меня работает. Не могу сказать корректно ли для моих конкретных требований, но по крайней мере удаляет, в отличии от моего. Мне самому сложно сразу ответить, все ли верно. И сложно разом объяснить все нюансы, т.к. разные ситуации бывают.
Хотя, если поняли в чем проблема была, был бы рад услышать, т.к. не хотелось бы повторения ситуации. Но как понял, проблема в скрипте.

VBA никогда не изучал, только баловался в школе. Больше С++. Сейчас другим занимаюсь. Познания нулевые (хотя, в отличии от большинства, понять могу, особенно, если командам незнакомым описание найду), поэтому ответ вполне устроит простыми словами.

Все верно. Если все работало, а я ничего не менял, то на скрипт последнее подозрение. Было уже так, что в самой таблице включается фильтр экселевский и обработка идет не так (не конкретно этого скрипта). Простой пример: сделал на две строчки текущую дату, кликаю дважды и дата до последней строчки выставляется эта. Если включен фильтр, то вниз на двойной клик ничего не проставляется. А это я тоже не сразу понял. Внизу базы куча строчек без даты, вверху какое-то значение из первых скрыто из-за фильтра, что не меняет низ базы никак, а эксель не хочет проставлять на двойной клик. Задумка непонятна. Думал на подобный "баг", интересовался впервую очередь на такие возможности.
В этом и загадка. Почему после 5-7к строчки он перестал работать, зашкаливать стал?
Вы пришли в магазин сдать ломаный тостер в ремонт и рассказываете: готовил хлеб, он не выбросил, тот подгорел, тостер не работает теперь. Кроме как хлеб ничего не готовил, всегда стоял на кухне. Вы дали всю инфу. Но к вам продолжают приставать "может вы его в ванную уронили и его замкнуло? или может вы в него не хлеб пихнули, а носки сушили?". Я написал сразу, что ничего не менял, это и означает, что ничего не менял. Я понимаю, что множество людей кто пишет на форумах не дают инфы или пишут одно, а на деле другое. В моем случае я выдал сразу все, что мог. И фраза "может другого листа" (про другую книгу вообще не понял к чему, типа я запустил другую таблицу без макроса и он не работает? это совсем глупость было бы тут спрашивать совета) после моей "ничего не менял" как шаблонный вопрос после моего подробного рассказа. Если вы согласны про глупые вопросы от продавца в примере с тостером, то и тут поймете. Если нет, то - ок. Я работал и продавцом и инженером сервиса и клиентом/покупателем был и все это проходил. Для себя извлек уже давно, что лишняя ненужная информация только загружает мозг и тратит время. Те, кто это понимаю, замечают карьерный рост.
Мне никогда не быть службой поддержки, потому что я просто не буду выслушивать людей и их "не работает" без какой-либо попытки описать подробности.
С чем не согласен? Включи же логику! Ну дал бы я табличку с макросом и строчками с цифрами, которые перед этим бы автопроставлением поставил бы, и зачем это? Я описал все, что делал в первом посте. Свой файл дать не могу. А давать новосозданный - смысл? Я же написал, что изначально грешил на фильтры, спросил про логи, выложил скрипт, чтобы проверили. Вы же нашли ошибку без моего файла? Уберите предрассудки и поймите, что я минимизировал свое время на эту задачу. А если бы вы не пытались спорить и доказать, что я не по шаблону все выполнил, а наоборот бы подхватили мою идею минимальных затрат, то у нас бы вышло быстрое решение! Все зависит от подхода! Я конечно понимаю, что когда вам за 30 и амбиций уже нет, все шаблонно привычно, то менять ничего не хочется. Те кто хочет - двигаются дальше, кто нет - остаются на месте. Это простая психология со второго курса. Просто вы не поняли, что я изначально пытался донести, т.к. большинство людей доносят только "не работает". Я вас прекрасно понимаю и не осуждаю. Но и меня попытайтесь понять. Это как если к вам придет президент, и вы будете ему "будь как дома, расслабься", а он будет официальными высокопочтенными "замашками" пользоваться, да создавать такую атмосферу. Я это к тому, что пришел "сэр" (интеллигент из великобритании) и говорит, что сломался компьютер, а вы - мистер - почините, пожалуйста. Вы ему: "Генри, релекс, все гуд, что не так?" и пошел стандартный разговор. А если к вам приходит ваш друг-сисадмин Квейк3всеДетствоВместеГоняли? И скажет: обновил убунту, tcp-пакеты не доходят, думаешь фаервол неправильно настроил?"  и вы же ему ответите нормально, а не будете "сэр, прошу поподробнее, убунту это ОС, может вы имели ввиду Вин, ведь вероятнее всего у вас просто тема рабочего стола убунту, а фаервол это для вас что?". Я хочу сказать, что принимая всех как новичков, которые шаблонно не дают инфы, вы не видите перед собой того, кто старается минимизировать лишние вопросы.
Бросьте, мистер модератор (простите, если это оскорбительно, я не знаю, как в России применить фразу "Мистер Х"), но вы оценили мою фразу неверно. Я знаю, что тут у нас в России очень многие злые, коррумпированные и эгоистичные и скорее всего фразу вы расценили как "головой чтоли ударился?", но в моем случае шутку я направлял на себя "кажется головой не ударялся", показывая тем самым мысль о том, что ничего передать не забыл. Другими словами: Нет, ничего не менялось, ничего не менял, все проверял, изменений не вносил, на голову ничего не падало, уверен, что амнезии на этот счет нет, все что выше написал - по моей памяти верно.


Спасибо еще раз за код.

И правильно бы поступили. Всегда старайтесь прикрепить проблемный файл - меньше потом писать придётся.