I am sorry, i attached file of excel and below code for sectional graph. is it right now?
Sub Úsek_grafu()
Dim radky As Integer
Dim bunka_start As String
Dim bunka_konec As String
Dim pocatek As Integer
Dim index_start, index_konec As Integer
'zvoleny radek
pocatek = ActiveCell.Row
'zjisteni pocet radku
For a = 3 To 65555
If Cells(a, 3) = Then
radky = a - 1
Exit For
End If
Next
'omezeni pro zacatek a konec grafu
If pocatek 60 Then
index_start = 3
Else
index_start = pocatek - 60
End If
If pocatek + 120 radky Then
index_konec = radky
Else
index_konec = pocatek + 120
End If
'prevede na format A1
bunka_start = Cells(index_start, 3).Address(RowAbsolute=False, ColumnAbsolute=False)
bunka_konec = Cells(index_konec, 8).Address(RowAbsolute=False, ColumnAbsolute=False)
'vytvori graf
'
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source=Range(bunka_start & & bunka_konec)
End Sub
Thank you very much.