Sub obn()
 Dim i, znach, Cells1, znak, cell
       
    Sheets("ÎÒ è ÒÁ").Select
    Range("S29").Select
    znach = ActiveCell.Value
    Cells1 = ""
    Leg = ""
    If Len(Trim(znach)) <> 0 Then
     znak = IIf(Cells1 = "", "", ";")
     Cells1 = Cells1 + znak + "S29"
    Leg = Leg + znak + "P29"
    End If
    Range("S40").Select
    znach = ActiveCell.Value
    If Len(Trim(znach)) <> 0 Then
     znak = IIf(Cells1 = "", "", ";")
     Cells1 = Cells1 + znak + "S40"
         Leg = Leg + znak + "P40"

    End If
    
    For i = 45 To 60
     cell = "S" & i
     Range(cell).Select
     znach = ActiveCell.Value
     If Len(Trim(znach)) <> 0 Then
       znak = IIf(Cells1 = "", "", ";")
       Cells1 = Cells1 + znak + "S" + CStr(i)
              Leg = Leg + znak + "P" + CStr(i)
     End If
    Next
    
    Sheets("&#206;&#210; &#232; &#210;&#193;").Select
    ActiveSheet.ChartObjects("Chart 359").Activate
    ActiveChart.SetSourceData Source:=Range(Cells1)
    ActiveChart.SeriesCollection(1).XValues = _
    Range(Leg)
    
End Sub

Method "Range" of object "_Global" failed