Макрос для вставки строки в указанный диапазон столбцов под активной ячейкой

Question

Мне нужно изменить этот код, или, если бы можно было написать мне такой, который был бы более эффективным.

Not Эта формула прекрасно работает, но мне нужна новая строка для вставки только в столбцы от A до F.

Причина в том, что у меня есть таблица данных / отчета от H3 до K36, которая должна остаться и не может быть изменена новыми строками.

Sub InsertRow()    
    If ActiveCell.Column = 1 Then

        Dim numCopies As Long
        numCopies = 1

        Dim i As Long
        For i = 1 To numCopies
            Rows(ActiveCell.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Next i

        ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(numCopies, 0)), Type:=xlFillDefault
    End If
End Sub

Answer 1

Измените и попробуйте один из следующих вариантов:

Option Explicit

Sub test()

    With ThisWorkbook.Worksheets("Sheet1")
        .Range("A1").EntireRow.Insert ' <- Insert a row at row 1
        .Rows("1:3").EntireRow.Insert ' <- Insert 3 rows from 1
    End With

End Sub