Option Explicit
Option Base 1

Sub Clear_Chart()
     Dim Pts&, i&
     With ThisWorkbook.Worksheets("Chart_List").ChartObjects("Rio_Chart").Chart
         Pts = .FullSeriesCollection.Count
         If Pts = 0 Then Exit Sub
         For i = Pts To 1 Step -1
             .FullSeriesCollection(i).Delete
         Next i
     End With
End Sub

Sub Fill_Chart()
     Call Clear_Chart
     Dim Pts&, i&, j&
     With ThisWorkbook.Worksheets("Chart_List").ChartObjects("Rio_Chart").Chart
         Pts = [Data[Object]].Rows.Count
         For i = 1 To Pts
             If [Data[Object]].Rows(i).Hidden = False Then
                 j = j + 1
                 .SeriesCollection.NewSeries
                 .FullSeriesCollection(j).Name = [Data[Object]].Cells(i, 1).Value
                 .FullSeriesCollection(j).XValues = [Data[XVal]].Cells(i, 1).Value
                 .FullSeriesCollection(j).Values = [Data[Val]].Cells(i, 1).Value
             End If
         Next i
     End With
End Sub