Sub Add_discount()
Set ws = ActiveSheet
'получение последней строки в столбце 5
lLastRow = ws.Cells(Rows.Count, 5).End(xlUp).Row

'указываем ячейку C21, с текстом курс (диапазон динамический)
If Cells(lLastRow, 5).Offset(2, -2).Value = 0 Then
MsgBox "Хотите указать курс доллара и скидку?", vbYesNo
End If
'указываем ячейку C22, с текстом скидка
If Cells(lLastRow, 5).Offset(3, -2).Value = 0 Then
MsgBox "Хотите указать курс доллара и скидку?", vbYesNo
End If

Dim answer As Integer
answer = MsgBox("Хотите указать курс доллара и скидку?", vbYesNo)
If answer = vbYes Then
Exit Sub
Else: MsgBox "OK"
End If

End Sub

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