макрос для таблицы

[orlovya]

Ребята,Огромное спасибо всем кто откликнулся,а особенно EducatedFool скрипт работает на ура. Спасибо,что не отправили лесом,у меня решение данной задачи заняло б много времени.

[EducatedFool]

Сообщение от Aent

EducatedFool, давно хотел заметить по поводу часто употребляемой вами
конструкции вида

 Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp))

В общем случае (а точнее когда последней заполненной строкой в таблице
будет строка Rows.Count ) она к сожалению неверна.
К своему удивлению, за последний месяц трижды столкнулся у разных клиентов
с данными в 65536 строке в Excel 2003...

Спасибо за замечание
Как-то особо об этом не задумывался - не думал, что на практике встречается целиком забитый лист...

Исправил этот кусок кода во всех списках автозамены на такой вариант
(с учётом ваших замечаний):

Set ra = Range([A2], Range("A" & Rows.Count).End(IIf(Len(Range("A" & Rows.Count)), xlDown, xlUp)))