Частичная автоматизация отчёта - VBA

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

Добрый вечер! Имеется желание, но нет навыков автоматизации рутинных действий при создании транспортного отчёта (во вложении), а именно: 1) Ячейка А2 - при запуске скрипта обе даты меняются на текущую 2) Ячейка F11 - значение копируется из ячейки F12 3) A25, B25, E25 - нужна картина, как у файла во вложении. Остальные ячейки таблицы, в которую вписываются пункты выезда, прибытия, пробег и прочие должны стать пустыми (А30-F30). Также меня волнует вопрос. Допустим скрипт выполняется автоматически при запуске файла. При закрытии будет ли предложено сохранить изменения или они в любом случае сохраняются вне зависимости от желания пользователя? Если при закрытии файла будет предлагаться сохранение изменений, то хотелось бы, чтобы скрипт запускался автоматически при открытии файла. В противном случае только вручную. Заранее благодарен!

Решение задачи: «Частичная автоматизация отчёта»

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

                            Sub Завершить()
    Dim i&, LastRow&
    With Worksheets(1)
        LastRow = .[F30].End(xlUp).Row
        For i = 26 To LastRow
            .Cells(i, 1) = i - 24
            .Cells(i, 2) = Now
        Next
        If LastRow > 25 Then
            .Cells(LastRow, 3) = "-"
            .Cells(LastRow, 4) = "-"
        End If
    End With
End Sub
                        