Нужен Макрос для ввода данных в перую пустую ячейку диапазона

[valik65]

Нужен макрос который бы копировал данные из одной и той же ячейки 1 в первую пустую ячейку диапазона и потом обнулял бы данные ячейки1.

Помогите!
Очень нужно-буду крайне признателен.Бьюсь уже неделю

Пример прилагается

[EducatedFool]

Вот весь код:

Sub test()
    Range("k5").End(xlToLeft).Next.Resize(2).Value = [d19:d20].Value
    [d19:d20].ClearContents
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...0__8-15-40.zip

[SAS888]

1. Не знаю, на сколько автору вопроса это нужно, но я бы предусмотрел вариант, когда одна из копируемых ячеек пуста. В этом случае, определение незаполненного диапазона для вставки значений будет несколько другим.
2. Есть большая разница в терминологии. Автор вопроса хочет, чтобы

...макрос копировал данные из одной и той же ячейки 1 в первую пустую ячейку диапазона...

Это далеко не то же самое, что ячейка, следующая после последней заполненной ячейки столбца (столбцов, строки и т.п.). А именно так и понял задачу уважаемый EducatedFool.

[valik65]

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

Вот весь код:

Sub test()
    Range("k5").End(xlToLeft).Next.Resize(2).Value = [d19:d20].Value
    [d19:d20].ClearContents
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...0__8-15-40.zip

Уважаемый EducatedFool!
ОГРОМНОЕ СПАСИБО ВАМ -это ИМЕННО то что мне нужно!
Ещё раз ОГРОМНОЕ спасибо
С уважением Валентин

Всё отлично работает-но не могли бы Вы ходя ты вкратце изложить семантику формулы кода?
Я не совсем понял некоторые команды и поэтому не могу перестроить код так, что бы вводимая ячейка находилась на одном листе , а сам массив на другом.
Пример прилагаю

[EducatedFool]

<макрос написан - тема неактуальна>