Создание базы данных

[paresh]

Добрый день!

В программировании я не разбираюсь, но нашел подходящий вариант на форуме по работе с excel. Помогите, пожалуйста адаптировать макрос. Идея в следующем. Нужна база данных событий отсутствия сотрудников на рабочем месте (отпуск, б/л и т.п.), чтобы можно было в дальнейшем автоматом посчитать норму часов в месяце.
Вот какое решение я нашел:

Sub Add_Sell()
    Worksheets("Данные").Range("H2:K2").Copy                                            'копируем строчку с данными из формы
    n = Worksheets("Данные").Range("A100000").End(xlUp).Row                    'определяем номер последней строки в табл. Продажи
    Worksheets("Данные").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues    'вставляем в следующую пустую строку
    Worksheets[Данные].Range[D3:D6].ClearContents                                    'очищаем форму
End Sub