Sub Макрос1()
'
' Макрос1 Макрос
'
'
    ChDir "C:\Users\user\Desktop\Все счета"
    Workbooks.Open Filename:= _
        "C:\Users\user\Desktop\Все счета\Я000009158_ООО_Отраслевые_решения___г._Волгоград (4).xls"
    Rows("1:4").Select
    Range("A4").Activate
    Selection.ClearContents
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("1:3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveSheet.Pictures.Insert( _
        "C:\Users\user\Desktop\Все счета\Картинки\Молотки.jpg").Select
    ChDir "C:\Users\user\Desktop\Все счета\На отправку"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\user\Desktop\Все счета\На отправку\Я000009158_ООО_Отраслевые_решения___г._Волгоград (4).xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Windows("Пробный 2.xls").Activate
End Sub