Exel,VBA:последовательное сохр. данных на др. листе

[LEA]

Здравствуйте!
Данные в Exel:
меню вида(лист1) данные1 данные2 данные3
ОК ОТМЕНА

A B C
сводная таблица(лист2) 1 данные4 данные5 данные6
2 данные7 данные8 данные9
... ... ...

Условия: в ячейки "данные1,2,3" вводятся данные и далее для сохранения
их в сводной таблице посредством макроса нажимается кнопка "ОК".

Требуется: после выполнения условия "данные1,2,3" копируются в сводную таблицу
в виде:
A B C
1 данные1 данные2 данные3
2 данные4 данные5 данные6
3 данные7 данные8 данные9.
... ... ...
Т.е. каждый раз при нажатии ОК данные с листа 1 копировались
на лист 2 в ячейки А1,B1,С1, а данные4,5,6, записанные до этого также
и находящиеся там же не стирались, а переносились на одну строку
ниже (A2,B2,C2) вместе с данными7,8,9 и т.д.

Как бы реализовать этот алгоритм???
Заранее огромное спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Naeel Maqsudov]

Код: Выделить всё

Private Sub CommandButton1_Click()
  'OK button
  With Worksheets("Лист2").Range("TableLeftTop").Range("A1:C1")
    .Offset(1, 0).Insert xlDown
    .Offset(1, 0).Value = Array( _
      Worksheets("Лист1").Range("FieldA"), _
      Worksheets("Лист1").Range("FieldB"), _
      Worksheets("Лист1").Range("FieldC") _
    )
  End With
End Sub

См. приложение

[LEA]

Хорошая идея! Спасибо! А нельзя ли логически завершить макрос в книге 99 на кнопке ОТМЕНА? Т.е. при нажатии кнопки "отмена" последняя запись (после выполнения ОК) на листе 2 полей A,B,C будет удаляться, а все предшествующие поднимутся на место удаленной.

A B C
dcddc sdsdc3e asdaeedaede
wjwjswjq qwerqwer asdfasdfa
... ... ...

A B C
wjwjswjq qwerqwer asdfasdfa
... ... ...