Итак, я девочка блондинка - на 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
Работающий код
Осталось только угадать, куда же сие чудо вставить
Питомник абиссинских кошек AmberSun - солнечные кошки солнечного Забайкалья. www.amber-sun.ru
Контактный телефон: 89145102110