Attribute VB_Name = "Module3"
Sub Button3_Click()
    Set wb_calc = ActiveWorkbook
    Set sumSheet_init = wb_calc.Worksheets("SUMMARY")
    Set dealsSheet_init = wb_calc.Worksheets("DEALS")
    
    sumSheet_init.Copy
    ActiveSheet.Select
    Set target_wb = ActiveWorkbook
    For Each cShape In ActiveSheet.Shapes
    cShape.Delete
    Next
    
    Cells.Copy
    Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    dealsSheet_init.Copy After:=target_wb.Sheets(1)
    
    target_wb.Theme.ThemeColorScheme.Load ("F:\_DCM\03 - GENERAL\CORP STYLE\RSHB.xml")
        
    'ActiveWorkbook.SaveAs Filename:= _
    '    "C:\Users\Smirnov-SD\Documents\rep_new\Отчет_UW_08112020.xlsx", FileFormat:= _
    '    xlOpenXMLWorkbook, CreateBackup:=False
        
End Sub



Sub Button4_Click()
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set sumSheet = Worksheets("SUMMARY")
    Set prevSheet = Worksheets("SUMMARY_T-1")
    Set histSheet = Worksheets("RES_HISTORY")
    
    sumSheet.Cells.Copy
    prevSheet.Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    hist_lr = histSheet.Cells(histSheet.Rows.Count, 1).End(xlUp).Row + 1
    histSheet.Cells(hist_lr, 1) = sumSheet.Range("REP_DT")
    histSheet.Cells(hist_lr, 2) = sumSheet.Cells(4, 2)
    histSheet.Cells(hist_lr, 3) = sumSheet.Cells(6, 2)
    histSheet.Cells(hist_lr, 4) = sumSheet.Cells(7, 2)
    histSheet.Cells(hist_lr, 5) = sumSheet.Cells(9, 2)
    histSheet.Cells(hist_lr, 6) = sumSheet.Cells(10, 2)
    histSheet.Cells(hist_lr, 7) = sumSheet.Cells(11, 2)
    histSheet.Cells(hist_lr, 8) = sumSheet.Cells(13, 2)
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
End Sub