Sub Report()

Dim aproducts_stroka, bproducts_stroka, cproducts_stroka, i, stroka_total, stolbec_data1, stolbec_data2, stolbec_data3, stroka_indirect, stroka_KA As Long
Dim otkr_file, scorecard, otkr_order, Flash_report As String
Dim iLastRow, sum, start, z, g, obana As Integer
Dim total_russia_file, scorecard_file, Flash_report_file, Flash_report_KA, Flash_report_Channel As Object
Dim data1_scorecard, data2_scorecard, data3_scorecard, data1_total_russia, data2_total_russia, data3_total_russia As Date
Dim Total_actimel_stroka, Total_Activia_stroka, Total_Rastishka_stroka, Total_Danissimo_stroka, Total_Danakor_stroka, Total_Kinder_stroka, Total_Danone_stroka As Integer
Dim today As Date
Dim c_m, n_m, mm_column As Integer


'========= WTD & MTD & YTD

total_russia_file.Activate

today = Date
Select Case Month(today)

Case Is =  1 
mm = "Jan"
next_mm = "Feb"
Case Is =  2 
mm = "Feb"
next_mm = "Mar"
Case Is =  3 
mm = "Mar"
next_mm = "Apr"
Case Is =  4 
mm = "Apr"
next_mm = "May"
Case Is =  5 
mm = "May"
next_mm = "June"
Case Is =  6 
mm = "June"
next_mm = "July"
Case Is =  7 
mm = "July"
next_mm = "Aug"
Case Is =  8 
mm = "Aug"
next_mm = "Sep"
Case Is =  9 
mm = "Sep"
next_mm = "Oct"
Case Is =  10 
mm = "Oct"
next_mm = "Nov"
Case Is =  11 
mm = "Nov"
next_mm = "Dec"
Case Is =  12 
mm = "Dec"
next_mm = "Jan"
End Select


scorecard = Application.ActiveWorkbook.Name
        otkr_file = Application.GetOpenFilename(Title:="Open Report")
        If otkr_file = "False" Then Exit Sub
        Workbooks.Open Filename:=otkr_file
        total_russia = Application.ActiveWorkbook.Name
ActiveWorkbook.Sheets("Sheet_2").Select

Application.ScreenUpdating = False

Set total_russia_file = Workbooks(total_russia).Worksheets("Sheet_1")
Set scorecard_file = Workbooks(scorecard).Worksheets("Scorecard")

Application.ScreenUpdating = False
scorecard_file.Activate

'====== UNMERGE CELLS
Range("F4:G4").Select
Selection.UnMerge
Range("F5:G5").Select
Selection.UnMerge
Range("F6:G6").Select
Selection.UnMerge
Range("F7:G7").Select
Selection.UnMerge
             
'===================== Paste YTD =================
total_russia_file.Cells( 4 ,  68 ).Copy    '<------ YTD Value
    scorecard_file.Activate

Application.ScreenUpdating = False
Application.DisplayAlerts = False

    scorecard_file.Cells( 7 ,  6 ).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
Set total_russia_file = Workbooks(total_russia).Worksheets("Sheet_1")
Set scorecard_file = Workbooks(scorecard).Worksheets("Scorecard")


'===================== Paste MTD =================
For c_m =  1  To  80 
If total_russia_file.Cells( 1 , c_m).Value = mm Then
current_month = c_m '<---- where the current month value is
Exit For
End If
Next

For n_m =  1  To  80 
If total_russia_file.Cells( 1 , n_m).Value = next_mm Then
next_month = n_m '<---- where the next month value is
Exit For
End If
Next


If Cells( 4 , c_m).Value <>  0  And Cells( 4 , n_m).Value = "" Then
total_russia_file.Cells( 4 , c_m).Copy     '<------ MTD Value
scorecard_file.Activate
scorecard_file.Cells( 6 ,  6 ).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
mm_column = c_m
End If


If Cells( 4 , c_m) <>  0  And Cells( 4 , n_m) <>  0  Then
total_russia_file.Cells( 4 , n_m).Copy     '<------ MTD Value
scorecard_file.Activate
scorecard_file.Cells( 6 ,  6 ).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
mm_column = n_m
End If
        


 '===================== Paste WTD =================
   
total_russia_file.Activate
 
If total_russia_file.Cells( 4 , mm_column -  1 ).Value <>  0  And total_russia_file.Cells( 4 , mm_column -  2 ).Value <>  0  Then
 total_russia_file.Cells( 4 , mm_column -  1 ).Copy      '<-------- WTD Value
 scorecard_file.Activate
 scorecard_file.Cells( 5 ,  6 ).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
 Else
  For c =  4  To mm_column -  1 
   If total_russia_file.Cells( 4 , c).Value =  0  And total_russia_file.Cells( 4 , c -  1 ).Value <>  0  Then
     total_russia_file.Cells( 4 , c -  1 ).Copy      '<-------- WTD Value
     scorecard_file.Activate
     scorecard_file.Cells( 5 ,  6 ).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Exit For
   End If
  Next c
End If

'====== MERGE CELLS
Range("F4:G4").Select
Selection.Merge
Range("F5:G5").Select
Selection.Merge
Range("F6:G6").Select
Selection.Merge
Range("F7:G7").Select
Selection.Merge
             
'=====================
  
      Application.DisplayAlerts = False
      Workbooks(total_russia).Activate
      ActiveWorkbook.Close SaveChanges:=False
      Windows(scorecard).Activate
      
Application.ScreenUpdating = True

End Sub