Помогите в Excel сделать следующее:

[Трейдер]

Помогите, пожалуйста. Ячейки одного столбца должны заполняться по порядку одна за другой. Если ячейка А1 заполнена, то автоматически заполняется ячейка А2. Если заполнена ячейка А2, то автоматически заполняется ячейка А3. И т.д. Значения для этих ячеек Excel должен брать из одной и той же ячейки этого же листа (например B1). В ней значение я ввожу сам, и оно постоянно меняется. Однако в ячейках А1, А2, А3 и т.д. оно должно сохраняться в том виде, в каком было введено в первый раз. Так, если я ввожу в B1 значение 123, то оно появляется в ячейке А1. Далее я ввожу в B1 число 456. В ячейке А1 должно остаться 123, а в ячейке А2 появиться 456. Далее я ввожу 789. При этом в ячейке А1 должно оставаться 123, в ячейке А2 - 456, а в ячейке А3 должно появиться 789. И т.д.

[Трейдер]

Ребят, тут что, нет "прошаренных"???:-(

[aHoHum]

[Трейдер]

Вы думаете я не пробовал этот "тык"? НЕ ПОМОГЛО, вот и обратился к "знающим")))

[bellouz]

[Трейдер]

Я бы помог!!! Тем более, не думаю, что это сложно для тех, кто "ЗНАЕТ". Минут пять отнимет, если не меньше. А тех, кто не умеет помогать за "так", я прошу не беспокоиться и данную просьбу игнорировать!

[Romashka]

А помочь человеку слабо! Пока эти макросы выучишь - три месяца пройдет! Я попробовола - у меня не выходит, а очень хотелось помочь! Думала, что шарю ...

[Hamster]

Итак, я девочка блондинка - на VBA писала еще в школе, тупейшими макросами никогда не интересовалась, ввожу в гугле:
excel запуск макроса при изменении ячейки
excel vba определить последнюю ячейку
Опа, напрягаю немного свою одну извилинку и получаю:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lLastRow As Long
If Target.Address = Cells(1, 2).Address Then
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lLastRow + 1, 1) = Cells(1, 2)
End If
End Sub

Работающий код
Осталось только угадать, куда же сие чудо вставить

[Трейдер]

Спасибо Вам большое, Romashka и Hamster! Я не девочка, но очень рад, что вы такие клёвые и умеете помогать