Вставьте 3 новые строки в конце форматирования с сохранением данных с помощью кнопки «Макрос / Команда»

Question

У меня есть лист данных, который я обновляю еженедельно, самый дальний левый столбец - это неделя года (1-52).

Я хочу, одним нажатием кнопки добавить следующую неделю всохраняя форматирование с предыдущей недели.

Каждая неделя состоит из 3 отдельных строк с данными, которые я ежедневно вводю вручную.- Первая строка - это просто пустая строка, окрашенная в серый цвет, чтобы отделить идущие вниз недели - Вторая строка - обычное текстовое поле - Третья строка - это раскрывающееся меню.

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

Как это сделать, используяМакрос / кнопка?

Редактировать вот код из макроса:

Sub NewWeek()
'
' NewWeek Macro
'
' Keyboard Shortcut: Ctrl+w
'
    Range("A38:Q40").Select
    Selection.AutoFill Destination:=Range("A38:Q43"), Type:=xlFillDefault
    Range("A38:Q43").Select
End Sub

Спасибо

Answer 1

Если вы просто хотите копировать «самые низкие» три строки в A:Q каждую неделю, это будет сделано

Sub WeekEndUpdate()

    Dim lastRow As Long
    lastRow = Cells(rows.count, "A").End(xlUp).row

    Dim rng As Range
    Set rng = Range("A" & lastRow - 2 & ":Q" & lastRow)

    rng.AutoFill Destination:=rng.Resize(6), Type:=xlFillDefault

End Sub