---

Sub MagicTable()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    ws.Cells.Clear
    
    ' Ширина столбцов
    ws.Columns("A").ColumnWidth = 3: ws.Columns("B").ColumnWidth = 32
    ws.Columns("C:H").ColumnWidth = 10: ws.Columns("I:J").ColumnWidth = 4
    ws.Columns("K").ColumnWidth = 20: ws.Columns("L:Q").ColumnWidth = 10
    
    ' Левая шапка (Голубая)
    ws.Range("C12:H13").Interior.Color = RGB(113, 226, 238)
    ws.Range("C12:H13").Orientation = 90
    ws.Range("C12:H13").HorizontalAlignment = xlCenter
    ws.Range("C12:H13").VerticalAlignment = xlCenter
    ws.Range("C12:C13").Merge: ws.Range("C12").Value = "Эпицентр"
    ws.Range("D12:D13").Merge: ws.Range("D12").Value = "Сталкер"
    ws.Range("E12:E13").Merge: ws.Range("E12").Value = "Alexander House"
    ws.Range("F12:F13").Merge: ws.Range("F12").Value = "Голливуд"
    ws.Range("G12:G13").Merge: ws.Range("G12").Value = "Indigo"
    ws.Range("H12:H13").Merge: ws.Range("H12").Value = "Nostalgie"
    ws.Range("A12:B13").Merge: ws.Range("A12:B13").Interior.Color = RGB(128, 128, 128)
    
    ' Заливка зеленым левой таблицы
    ws.Range("A14:B22").Interior.Color = RGB(180, 235, 150)
    ws.Range("C14:H22").Interior.Color = RGB(235, 245, 235)
    ws.Range("C16:H16").Interior.Color = RGB(200, 240, 180)
    ws.Range("C19:H19").Interior.Color = RGB(200, 240, 180)
    ws.Range("C21:H21").Interior.Color = RGB(200, 240, 180)
    
    ' Данные (Левая часть)
    ws.Range("A14").Value = "1.": ws.Range("B14").Value = "Цена билета днем"
    ws.Range("C14:H14").Value = Array(100, 50, 80, 50, 250, 60)
    ws.Range("A15").Value = "2.": ws.Range("B15").Value = "Количество посетителей днем"
    ws.Range("C15:H15").Value = Array(50, 70, 30, 10, 30, 10)
    ws.Range("A16").Value = "3.": ws.Range("B16").Value = "Выручка с продажи билетов днем"
    ws.Range("C16:H16").Formula = "=C14*C15"
    ws.Range("A17").Value = "4.": ws.Range("B17").Value = "Цена билета ночью"
    ws.Range("C17:H17").Value = Array(200, 100, 170, 100, 500, 100)
    ws.Range("A18").Value = "5.": ws.Range("B18").Value = "Количество посетителей ночью"
    ws.Range("C18:H18").Value = Array(100, 100, 150, 50, 70, 100)
    ws.Range("A19").Value = "6.": ws.Range("B19").Value = "Выручка с продажи билетов ночью"
    ws.Range("C19:H19").Formula = "=C17*C18"
    ws.Range("A20").Value = "7.": ws.Range("B20").Value = "Количество рабочих дней в месяце"
    ws.Range("C20:H20").Value = Array(20, 16, 16, 16, 30, 20)
    ws.Range("A21").Value = "8.": ws.Range("B21").Value = "Выручка с продажи билетов за месяц"
    ws.Range("C21:H21").Formula = "=(C16+C19)*C20"
    ws.Range("A22").Value = "9.": ws.Range("B22").Value = "Зарплата обслуживающему персоналу, руб."
    ws.Range("C22:H22").Value = Array(30000, 50000, 30000, 25000, 60000, 20000)
    
    ' Правая часть заливка
    ws.Range("J14:K21").Interior.Color = RGB(180, 235, 150)
    ws.Range("J22:K23").Interior.Color = RGB(255, 255, 100)
    ws.Range("J24:K26").Interior.Color = RGB(180, 235, 150)
    ws.Range("L14:Q26").Interior.Color = RGB(235, 245, 235)
    ws.Range("L16:Q16").Interior.Color = RGB(200, 240, 180)
    ws.Range("L20:Q20").Interior.Color = RGB(200, 240, 180)
    ws.Range("L22:Q23").Interior.Color = RGB(255, 255, 150)
    ws.Range("L24:Q26").Interior.Color = RGB(200, 240, 180)
    
    ' Данные правая часть
    ws.Range("J14").Value = "10.": ws.Range("K14").Value = "Количество человек"
    ws.Range("L14:Q14").Value = Array(4, 10, 6, 3, 10, 3)
    ws.Range("J15").Value = "11.": ws.Range("K15").Value = "Зарплата охранника"
    ws.Range("L15:Q15").Value = Array(2500, 3000, 2500, 2000, 3500, 1500)
    ws.Range("J16").Value = "12.": ws.Range("K16").Value = "Всего на охрану"
    ws.Range("L16:Q16").Formula = "=L14*L15"
    ws.Range("J17").Value = "13.": ws.Range("K17").Value = "Коммунальные"
    ws.Range("L17:Q17").Value = Array(1000, 2000, 2000, 1000, 1500, 1200)
    ws.Range("J18").Value = "14.": ws.Range("K18").Value = "Затраты на бар"
    ws.Range("L18:Q18").Value = Array(12000, 10000, 15000, 3000, 50000, 1250)
    ws.Range("J19").Value = "15.": ws.Range("K19").Value = "Выручка с бара"
    ws.Range("L19:Q19").Value = Array(25000, 15000, 30000, 4000, 125500, 12000)
    ws.Range("J20").Value = "16.": ws.Range("K20").Value = "Прибыль с бара"
    ws.Range("L20:Q20").Formula = "=L19-L18"
    ws.Range("J21").Value = "17.": ws.Range("K21").Value = "Затраты на рекламу"
    ws.Range("L21:Q21").Value = Array(1000, 2000, 2000, 1500, 3000, 0)
    ws.Range("J22").Value = "18.": ws.Range("K22").Value = "Итого затраты"
    ws.Range("L22:Q22").Formula = "=C22+L16+L17+L18+L21"
    ws.Range("J23").Value = "19.": ws.Range("K23").Value = "Итого вся выручка"
    ws.Range("L23:Q23").Formula = "=C21+L19"
    ws.Range("J24").Value = "20.": ws.Range("K24").Value = "Прибыль с дискотеки"
    ws.Range("L24:Q24").Formula = "=L23-L22"
    ws.Range("J25").Value = "21.": ws.Range("K25").Value = "Налог с прибыли"
    ws.Range("L25:Q25").Formula = "=L24*0.2"
    ws.Range("J26").Value = "22.": ws.Range("K26").Value = "Чистая прибыль в руб."
    ws.Range("L26:Q26").Formula = "=L24-L25"
    
    ' Рамки и перенос текста
    ws.Range("A12:H22").Borders.LineStyle = xlContinuous
    ws.Range("J14:Q26").Borders.LineStyle = xlContinuous
    ws.Range("A12:Q26").WrapText = True
End Sub