Макрос, который копирует строку с одного листа на другой с присвоением нумерации и даты

[Edvardstrannik]

Здравствуйте господа программисты!
Столкнулся с непосильной задачей. Знания в написании макросов на уровне новичка, так что прошу помощи. Буду благодарен за любые советы.
Задача:
1) На первом листе(меню) расположены кнопки управления и поля для заполнения. эти поля нужно перенести во второй лист при нажатии кнопки "добавить договор в базу", задать номер по порядку в столбец "№ п/п" и проставить дату записи в столбец "дата добавления". Дату брать из часов ОС.
2) При нажатии на кнопку "удалить последний договор из базы" удалять в листе "договора" последнюю строку вместе с номером по порядку и датой добавления.

[EducatedFool]

Я не нашел в вашем файле ни единой строки кода.

Вы предлагаете сделать всё за вас?
Как бы сделать-то несложно, но вы бы сами хоть что-то попробовали... примеров на форуме множество

[Edvardstrannik]

Примеров действительно много, но нет описания как работает конкретная часть кода... К примеру есть макрос переноса строк на второй лист

Option Explicit

Private Sub cmdNewData_Click()
Dim vrngFrom As Variant
vrngFrom = Range("C10:K10")

With Sheets("Лист2")
Dim fc As Long
fc = .Cells(Rows.Count, 2).End(xlUp).Row + 1

.Cells(fc, 2).Resize(, 9).Value = vrngFrom
End With
End Sub

Но как сделать что бы он брал не С10 по К10 и переносил на второй лист непонятно куда, а брал B3 по G3 и переносил в последнюю строку листа "договора"... В смысле может есть у кого таблица с обозначением частей кода, дабы через неё уже подставлять и дорабатывать. Времени нету читать громоздкие книги по excel. Разберусь в коде я же выложу суда программу, я думаю не одному мне она пригодиться. Если не трудно выложите, или поделитесь ссылкой куда копать пожалуйста.

[Скрипт]

Код написан для Excel-книги из сообщения #1.
Код заносит данные на второй лист.
На первом листе должны быть уже какие-нибудь данные, а не только заголовок таблицы.

Sub Procedure_1()

    'Добавление записи.
    

    Dim myLastRowSheet_1 As Long, myLastRowSheet_2 As Long
    
    '1. Ускоряем работу кода.
    '1.1. Отключаем обновление монитора.
    Application.ScreenUpdating = False
    '1.2. Отключаем пересчёт формул.
    Application.Calculation = xlCalculationManual

    
    '2. Определяем строки, с которыми надо будет работать.
        'Макрос определяет нужные строки аналогично действиям в Excel,
        'если сделать активной последнюю ячейку в столбце и нажать
        'сочетание клавиш "Ctrl + Стрелка вверх".
    'На первом листе нужная строка определяется по столбцу "B".
    myLastRowSheet_1 = Worksheets(1).Cells(Rows.Count, "B").End(xlUp).Row
    'На втором листе - по столбцу "A".
    '+ 1, т.к. данные нужно вставить в пустую строку.
    myLastRowSheet_2 = Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
    
        
    '3. Заполнение второго листа.
    '3.1. Установка порядкового номера.
    'Нужно учесть, не первая ли это строка с данными.
    If myLastRowSheet_2 = 2 Then
        Worksheets(2).Cells(myLastRowSheet_2, "A").Value = 1
    Else
        Worksheets(2).Cells(myLastRowSheet_2, "A").Value = _
            Worksheets(2).Cells(myLastRowSheet_2 - 1, "A").Value + 1
    End If
        
    '3.2. Перенос данных из первого листа во второй.
    Worksheets(2).Range("B" & myLastRowSheet_2 & ":G" & myLastRowSheet_2).Value = _
        Worksheets(1).Range("B" & myLastRowSheet_1 & ":G" & myLastRowSheet_1).Value
    
    '3.3. Вставка даты.
    Worksheets(2).Cells(myLastRowSheet_2, "H").Value = Date
    
    
    '4. Включаем то, что отключали.
    Application.ScreenUpdating = True
    'Пересчёт производится во всех открытых книгах и только
        'в том случае, если в формуле произошло изменение.
    Application.Calculation = xlCalculationAutomatic

End Sub

[Edvardstrannik]

Огромное человеческое спасибо "Скрипт" за макрос! Работает как надо. Книгу малость переделал, появились новые трудности. Есть пара вопросов, но поковыряюсь пока сам. Выкладываю то что получилось на данный момент. С книгой работаю в Excel 2010.
Надстройка для вставки значений при нажатии CTRL+ENTER взят с сайта Эксельвба.ру. Поскольку не придумал как реализовать выбор из списка(лист "Спис_адрес"), который заполняется по тому же принципу что и листы с договорами(то есть динамический) вставку в ячейку B3 листа меню.

[Hugo121]

Приведённый Вами в 3-м сообщении код делал буквально то, что Вам и нужно - только подправить диапазоны, имя листа и уточнить, по какому столбцу искать последнюю заполненную строку (код ищет по второму, но думаю Вам как раз это и нужно).
Ну и одно замечание - код копирует только данные, без форматов/заливок.