Visual Basic

 Sub Макрос1()
'
' Макрос1 Макрос
'
 
'
  
    Range("BE28").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C[-32]"
    Range("BF28").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-33]"
    Range("BJ28").Select
    ActiveCell.FormulaR1C1 = "=RC[-37]"
    Range("BK28").Select
    ActiveCell.FormulaR1C1 = "=R[1]C[-38]"
    Range("BL28").Select
    ActiveCell.FormulaR1C1 = "=R[2]C[-39]"
    Range("BM28").Select
    ActiveCell.FormulaR1C1 = "=R[3]C[-40]"
    Range("BN28").Select
    ActiveCell.FormulaR1C1 = "=R[4]C[-41]"
    Range("BO28").Select
    ActiveCell.FormulaR1C1 = "=R[5]C[-42]"
    Range("BP28").Select
    ActiveCell.FormulaR1C1 = "=R[6]C[-43]"
    Range("BQ28").Select
    ActiveCell.FormulaR1C1 = "=R[7]C[-44]"
    Range("BR28").Select
    ActiveCell.FormulaR1C1 = "=R[8]C[-45]"
    Range("BS28").Select
    ActiveCell.FormulaR1C1 = "=R[9]C[-46]"
    Range("BT28").Select
    ActiveCell.FormulaR1C1 = "=R[10]C[-47]"
    Range("BU28").Select
    ActiveCell.FormulaR1C1 = "=R[11]C[-48]"
    Range("BV28").Select
    ActiveCell.FormulaR1C1 = "=R[12]C[-49]"
    Range("BW28").Select
    ActiveCell.FormulaR1C1 = "=R[13]C[-50]"
    Range("BX28").Select
    ActiveCell.FormulaR1C1 = "=R[14]C[-51]"
    Range("BY28").Select
    ActiveCell.FormulaR1C1 = "=R[15]C[-52]"
    Range("BZ28").Select
    ActiveCell.FormulaR1C1 = "=R[16]C[-53]"
    Range("CA28").Select
    ActiveCell.FormulaR1C1 = "=R[17]C[-54]"
    Range("CB28").Select
    ActiveCell.FormulaR1C1 = "=R[18]C[-55]"
    Range("B27").Select
End Sub