Копирование нескольких строк с объединёнными ячейками

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование нескольких строк с объединёнными ячейками (Макросы/Sub)

ASV007

Дата: Пятница, 30.06.2023, 15:07 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Всем здравствуйте.
Необходимо с помощью макроса скопировать нижнюю строку таблицы, состоящей из четырёх объединённых строк, и вставить в первую пустую строку под этой таблицей. Одним словом, продолжить таблицу. Нижнюю незаполненную строку я ищу через
[vba]

Код

a = Cells(Rows.Count, 1).MergeArea.End(xlUp).Row + 4

[/vba]
А дальше начинается непонятное. Как мне скопировать строки от а до а+3? Если я пишу
[vba]

Код

Rows("a:a + 3").Copy

[/vba]
вылетает ошибка "Run-time error '1004' Application-defined or object-defined error"
Если этим "а+3" присваиваю новую переменную "b", то всё равно выскакивает та же ошибка.
Подскажите, пожалуйста, в чём проблема?

Понятно, что можно копировать не строки целиком, а найти последний заполненный столбец и скопировать диапазон от, например, A9 до какого-нибудь AU12, но ведь это же неспортивно! :-)

Сейчас тестовый код такой:
[vba]

Код

Sub test()
Dim a As Long, b As Long
    a = Cells(Rows.Count, 1).MergeArea.End(xlUp).Row + 4
    b = a + 3
    Rows("a:b").Copy
End Sub

[/vba]

Как должна выглядеть последняя строчка?