Sub Макрос1()

' Макрос1 Макрос

   Sheets.Add After:=Sheets(Sheets.Count)
    
    Columns("B:B").ColumnWidth = 25.5
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Win A"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Lost B"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Win B"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Lost A"
   
' 1-ый
    
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=А!R[2]C"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(А!R[2]C[2],"" -"",Б!R[2]C[2])"
    
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[1]C[1]:R[5]C[1],""=0"")"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!RC[1]:R[4]C[1],""=1"")"
    Range("D4").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[-1]C[1]:R[3]C[1],""=2"")"
    Range("D5").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[-2]C[1]:R[2]C[1],"">2"")"

    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[1]C[1]:R[5]C[1],""=0"")"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!RC[1]:R[4]C[1],""=1"")"
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[-1]C[1]:R[3]C[1],""=2"")"
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[-2]C[1]:R[2]C[1],"">2"")"

    Range("F2").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[1]C[-1]:R[5]C[-1],""=0"")"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!RC[-1]:R[4]C[-1],""=1"")"
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[-1]C[-1]:R[3]C[-1],""=2"")"
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[-2]C[-1]:R[2]C[-1],"">2"")"

    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[1]C[-1]:R[5]C[-1],""=0"")"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!RC[-1]:R[4]C[-1],""=1"")"
    Range("G4").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[-1]C[-1]:R[3]C[-1],""=2"")"
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[-2]C[-1]:R[2]C[-1],"">2"")"
    
' 2-ой

    Range("A6").Select
    ActiveCell.FormulaR1C1 = "=А!R[2]C"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(А!R[2]C[2],"" - "",Б!R[2]C[2])"
    Range("B7").Select

    Range("D6").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[2]C[1]:R[6]C[1],""=0"")"
    Range("D7").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[1]C[1]:R[5]C[1],""=1"")"
    Range("D8").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!RC[1]:R[4]C[1],""=2"")"
    Range("D9").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[-1]C[1]:R[3]C[1],"">2"")"
    
    
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[2]C[1]:R[6]C[1],""=0"")"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[1]C[1]:R[5]C[1],""=1"")"
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!RC[1]:R[4]C[1],""=2"")"
    Range("E9").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[-1]C[1]:R[3]C[1],"">2"")"
    
    
    Range("F6").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[2]C[-1]:R[6]C[-1],""=0"")"
    Range("F7").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[1]C[-1]:R[5]C[-1],""=1"")"
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!RC[-1]:R[4]C[-1],""=2"")"
    Range("F9").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Б!R[-1]C[-1]:R[3]C[-1],"">2"")"
    
    
    Range("G6").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[2]C[-1]:R[6]C[-1],""=0"")"
    Range("G7").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[1]C[-1]:R[5]C[-1],""=1"")"
    Range("G8").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!RC[-1]:R[4]C[-1],""=2"")"
    Range("G9").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(А!R[-1]C[-1]:R[3]C[-1],"">2"")"
    

End Sub