Sub Вставить_строки()
    Dim nn As Long
    On Error Resume Next
    nn = InputBox("Количество строк", "Добавить строки", 1)
    On Error GoTo 0
    If nn = 0 Then Exit Sub
    
    Rows("2:2").Copy
    Rows("2:2").Resize(nn).Insert Shift:=xlDown
    With Cells(2, 1).Resize(nn)
        .Columns("A:A").ClearContents
        .Columns("A:A").Merge
        .Columns("B:B").Value = GetSequentialArray(nn)
        .Columns("C:E").ClearContents
        .Columns("F:F").Value = "не выполнено"
        .Columns("G:G").Value = "-"
        
        With .Columns("A:G")
            With .Borders(xlInsideHorizontal)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With .Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlMedium
            End With
        End With
    End With
    
End Sub

Private Function GetSequentialArray(nn As Long) As Variant
    Dim arr As Variant
    ReDim arr(1 To nn, 1 To 1)
    
    Dim ya As Long
    For ya = 1 To nn
        arr(ya, 1) = ya
    Next
    
    GetSequentialArray = arr
End Function