Sub Insert_Rows()
' если выделено больше одной строки или не строка выход
If Selection.Rows.Count > 1 Then
MsgBox "Выделите только одну строку", vbOKOnly
Exit Sub
End If
If Selection.Cells.Count < 20 Then
MsgBox "Выделите строку", vbOKOnly
Exit Sub
End If

'выделяем все листы в книге
Worksheets.Select
Sheets("Итоги").Activate
    
'присваиваем выделеную строку
r_ = Selection.Row
'вставляем во все листы строку
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    Sheets("Итоги").Select
    'создаем цикл для каждого листа
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
    sh.Select
    'копируем предыдущую строку
    Rows(r_ - 1).Copy
    'выделяем вставленную и делаем вставку формул
    Rows(r_).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, _
        SkipBlanks:=False, Transpose:=False
        'удаляем все кроме формул в строке
            On Error Resume Next
    Selection.SpecialCells(2).Value = Empty
    On Error GoTo 0
        Application.CutCopyMode = False
        Cells(1, 1).Select
         Next sh
         'выбираем первый лист, чтобы внести наименования в добавленную строку
         Sheets("Итоги").Select
         Cells(r_, 1).Select
End Sub