Not really. The following lines have been corrupted and your file contains no vba code (it refers to code in your Personal.xlsb file which is on your computer.
If Cells(a, 3) = Then
If pocatek 60 Then
If pocatek + 120 radky Then
ActiveChart.SetSourceData Source=Range(bunka_start & & bunka_konec)
Copy/Move your code to your vyhodnoceni_graf.xlsm file and attach it again
More important. You need to provide a link to any cross-posts. You need to read the rules BEFORE you post.