Макрос - добавить данные в конец таблицы - VBA

Формулировка задачи:

Друзья, нужна помощь. Существует ли макрос выполняющий следующую функцию: В столбце "А" имеется список слов(всегда разное значение), необходимо что бы при выполнении макроса в конец этого списка дополнялись данные из буфера обмена и так до бесконечности? Пробовал через запись макроса: определяю крайнюю заполненную ячейку, перемещаюсь ниже на пустую - вставляю, но как понимаете это не рабочий вариант. В поиске именно такого запроса не нашел.

Решение задачи: «Макрос - добавить данные в конец таблицы»

textual
                            Листинг программы 
                        

                            Sub Макрос3()
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo '"$A$1:$A$5" заменил на "A:A"
End Sub
                        