Слэн, Юрий М,  Спасибо большое, всё работает  
Радует, что есть на свете добрые люди.

Лежит в файле *.xlsm Ну или так:

Скрытый текст
Sub Макрос1()'' Макрос1 Макрос' 'Range("Таблица1[#All]").SelectRange("D3").ActivateActiveSheet.Range("Таблица1[#Все]").RemoveDuplicates Columns:=2, Header:= _xlYesRange("D8").SelectEnd Sub

Приветствую форумчан  Задача: удалить дубликаты значений из столбца "Дубликаты" с помощью макроса. В других столбцах дубликаты искать не надо. Вот так делаю без макроса:
1. [Ctrl]+[A] – выделяется вся таблица;
2. Перехожу "Данные" → "Удалить дубликаты";
3. Оставляю галочку "Мои данные содержат заголовки";
4. Нажимаю кнопку "Снять выделение";
5. Ставлю галочку рядом со столбцом "Дубликаты";
6. Нажимаю "ОК";
7. В появившемся окне тоже "ОК".

Поскольку делать это приходится каждый день и не по разу, хотелось бы автоматизировать процесс.

Прикрепил собственно файл таблицы, файл той же таблицы с записанным макросом и окно ошибки.

Буду очень благодарен, если кто знает, как записать такой макрос