Прекратить вставку строк из очистки первой строки данных

Question

У меня есть код, который добавляет 15 строк в электронную таблицу, которая копируется в новую электронную таблицу. Когда я вставляю строки, создается впечатление, что они перекрывают первую строку данных, которая уже есть. Мне нужна первая строка данных, чтобы они все еще были там.

Я использую код, который я, вероятно, нашел здесь или на веб-сайте. До этого я фильтрую все данные и удаляю лишние категории строк.

'prep for adding departments and department subtotals
Rows("1:15").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

data_sh.Range("G:G").Copy Worksheets("IMPORT-WIP").Range("A1")
Worksheets("IMPORT-WIP").Range("A:A").RemoveDuplicates 1, xlYes

Первая строка первой категории отсутствует.

Answer 1

Я составил пример, так как вы его не предоставили. Анимированный GIF (нажмите, чтобы увидеть лучшее качество) сначала показывает 2 листа, а затем показывает, что пошаговое выполнение кода приводит к тому, что данные из листа 1 копируются в 15 строк, вставленных в верхней части листа 2, без потери того, что было в строке 1.

Я предлагаю вам проверить, что это работает, а затем изменить код для вашей ситуации.

Option Explicit
Sub insertIntoFirst15rows()
Dim data_sh As Worksheet, data_r As Range
Dim sh As Worksheet, r As Range
Set data_sh = Worksheets("1")
Set data_r = data_sh.Range("A1")
Set data_r = data_sh.Range(data_r, data_r.End(xlDown))
Set sh = Worksheets("2")
sh.Activate
Set r = sh.Rows("1:15")
r.Insert Shift:=xlShiftDown
Set r = Range("A1")
r.Select
data_r.Copy
sh.Paste
End Sub