как совместить вставку данных формы с копированием данных самого листа?

[serikov]

Всем доброго дня!

Столкнулся на первый взгляд с несложной задачей, а никак не решу.

Вставляю в таблицу данные с формы, далее путем ВПР функции из базы данных заполняются нужные данные и вот из заполненных данных (например ячейка D2) нужно взять данные (не формулу, а именно значение) и вставить их в табличку - Cells(i, 6).Value ....
Как видите вставка идет добавлением данных в последнюю строку таблицы.

Не могу корректно описать процедуру копирования.
Спасибо.

Private Sub CommandButton6_Click()
Dim i As Integer
Dim ws As Worksheet
Dim ot As String
......
ActiveSheet.Range("a2").Value = UserForm1.ComboBox1.Text
ActiveSheet.Range("c2").Value = UserForm1.TextBox1.Text
ActiveSheet.Range("b2").Value = UserForm1.Calendar.Value
......

i = 3
While Cells(i, 1).Value <> ""
i = i + 1
Wend
Cells(i, 1).Value = ComboBox1.Text
Cells(i, 2).Value = Calendar.Value
Cells(i, 3).Value = TextBox1.Text
Cells(i, 14).Value = Date
Cells(i, 15).Value = Time
???