Переход на новую строку - VBA (52680)

Формулировка задачи:

Доброго времени суток. Тема не новая, но никак не могу применить к своей ситуации то что нашла в др. примерах. Итак, имеем 2 файла .xls, в 1 файле пишем данные клиента, 2 файл база данных в табличном виде. Нужно что бы при нажатии кнопки данные клиента (ФИО, Дата рождения, адрес) заносились в таблицу БД. Проблема возникла в следующем действии: в таблице надо найти последнюю заполненную строку и перейти на следующую. При этом активная ячейка может находится в любом месте документа, бд будут пользоваться разные сотрудники для разных целей. P.S. Я не программист, но по работе имеется необходимость автоматизировать создание базы клиентов .. Прикладываю пример файлов.

Решение задачи: «Переход на новую строку»

textual
                            Листинг программы 
                        

                            Sub impexp()
Dim mARR(1 To 3)
      With Workbooks("Данные клиента+.xls").Sheets("Анкета")
         mARR(1) = Application.Trim(.Cells(2, 7).Value)
         mARR(2) = Application.Trim(.Cells(3, 11).Value)
         mARR(3) = Application.Trim(.Cells(6, 12).Value)
      End With
      With Workbooks("БД+.xls").Sheets("Лист1"). _
                                    Cells(Rows.Count, "a").End(xlUp)
         .Offset(1, 0).Resize(1, 3).Value = mARR
      End With
   Erase mARR: MsgBox Space(10) & "D O N E!"
End Sub
                        