1 Sub ПостроитьГрафик()

2  nrow = Cells(16, 25).Value + Cells(21, 25).Value
3  ncell = nrow + 1
   
4     If Cells(21, 25).Value = 0 Then
5        Worksheets("График").ChartObjects(2).Chart.SetSourceData Source:=Range("C2:AH2,С" & nrow & ":AH' & ncell")
6       ElseIf Cells(21, 25).Value = 13 Then
7         Worksheets("График").ChartObjects(2).Chart.SetSourceData Source:=Range("C15:G15,С" & nrow & ":G' & ncell")
8     End If
   
9   Worksheets("График").ChartObjects(2).Chart.ChartTitle.Characters.Text = "" & Cells(1 + Cells(21, 25).Value, 1) & ""

10 End Sub