Set p = ActiveSheet.Shapes.AddPicture(Puty, msoFalse, msoCTrue, Rng.Left, Rng.Top, -1, -1)
            ratio = Rng.Width / p.Width
            p.ScaleWidth ratio, msoFalse
            p.ScaleHeight ratio, msoFalse

     Pict.Select
        ActiveSheet.Pictures.Insert ( _
        Puty)

Private Sub Workbook_Open()
Sheets("Прайс1").Unprotect Password:="1" 'Снимаем защиту листа
Sheets("Прайс1").EnableOutlining = True '
Sheets("Прайс1").Protect Contents:=True, UserInterfaceOnly:=True

Sheets("Прайс2").Unprotect Password:="1" 'Снимаем защиту листа
Sheets("Прайс2").EnableOutlining = True '
Sheets("Прайс2").Protect Contents:=True, UserInterfaceOnly:=True
End Sub

Sub Macros1()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    ''''''''''''''''''''''''''''''
    Worksheets("Данные").Activate
    Dim MyValue1, PreMyValue2, MyValue2
    MyValue1 = Range("A2:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row 'номер строки первой пустой ячейки в А
    
    Worksheets("Прайс бренды - виды товаров").Activate
    
    ActiveSheet.Unprotect Password:="1" 'Снимаем защиту листа
    ActiveSheet.Range("H8:H9,I16:I21").Locked = True
    
    Cells(1, 16).NumberFormat = "@" '"P1"
    Cells(1, 16) = CStr(MyValue1)
    Set MyValue1 = Worksheets("Прайс бренды - виды товаров").Range("P1")
    Sheets("Данные").Rows("1:" & MyValue1).Copy
    Worksheets("Прайс бренды - виды товаров").Activate
    Sheets("Прайс бренды - виды товаров").Rows("11:11").Select
    ActiveSheet.Paste
        
    'Зафиксируем область
    ActiveWindow.FreezePanes = False
    Range("A14").Select
    ActiveWindow.FreezePanes = True
        
    'Установим фильтры
    Range("D11:I13").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    
    'Установим форматы
        Range("F14:I20000").Select
    Selection.NumberFormat = "#,##0.00"
    
    'Протянем формулу стоимости
    Range("R1").Select
    ActiveCell.FormulaR1C1 = "=IF(R[15]C[-10]>0,R[15]C[-11]*R[15]C[-10],"""")"
    Range("I16").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]>0,RC[-2]*RC[-1],"""")"
    Range("I16").Select
    Selection.Copy
    Range("I17:I20000").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A14:B14").Select 'это чтобы "промотать лист вверх".
        
    Range("P1:R1").Select
    Selection.Clear

    Range("A1").Select
    
    'ActiveSheet.Range("H8:H9,I16:I21").Locked = True
    ActiveSheet.Protect Password:="1" 'Ставим защиту листа
    
    '''''''''''''''''''''''''''''''''''''''''''
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    ActiveWorkbook.Save
End Sub