Sub фвфывфыв()
'
' фвфывфыв Макрос
'
' Сочетание клавиш: Ctrl+ц
'

Application.ScreenUpdating = False
    ActiveSheet.Unprotect

    
    
    Range("AQ2:AQ10").Select
    Selection.FormulaR1C1 = "=IF(""Понедельник""=RC[-2],RC[-1],"""")"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Range("AR2").Select
    Selection.FormulaR1C1 = "=MAX(C[-1],0)"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Range("AR3").Select
    Selection.FormulaR1C1 = "=MIN(C[-1],0)"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Application.CutCopyMode = False
    Range("G13").Select
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
    Application.ScreenUpdating = True
    

End Sub