Ввод данных в таблицу с формы - VBA

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

Нужно ввести данные с помощью формы, которая вызывается на листе1, в таблицу на другой лист3 (БД). Проблема возникла при попытки определить последнюю заполненную ячейку на листе3. У меня получилось определить на активном листе. Нужна помощь. Вот сам файл. Да, еще с датами проблема...

Решение задачи: «Ввод данных в таблицу с формы»

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

                            With Sheets(Data)
   rw = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End With
                        