Sub Создать_ряды()
    Dim objChart As Chart, objSeries As Series, i As Long
    
    Application.ScreenUpdating = False
    Set objChart = ActiveSheet.ChartObjects(1).Chart
    For i = objChart.FullSeriesCollection.Count To 1 Step -1
        objChart.FullSeriesCollection(i).Delete
    Next i
    For i = 4 To 21
        If Cells(i, "U").Value <> "" And Cells(i, "V").Value <> "" Then
            Set objSeries = objChart.SeriesCollection.NewSeries
            objSeries.Name = Cells(i, "U").Value
            objSeries.XValues = Range(Cells(i, "V")).Columns(1).Address(External:=True)
            objSeries.Values = Range(Cells(i, "V")).Columns(2).Address(External:=True)
        End If
    Next i
    Application.ScreenUpdating = True
End Sub