Sub AddPoints()
    If TypeName(Selection) <> "Range" Then
        MsgBox "Выберите диапазон.", vbInformation
        Exit Sub
    End If

    Dim ch As Chart
    Set ch = ActiveSheet.ChartObjects(1).Chart
    
    Dim cl As Range
    For Each cl In Intersect(Selection.EntireRow, ActiveSheet.UsedRange, Columns(1)).Cells
        If cl.Value <> "" Then
            ch.SeriesCollection.NewSeries
            With ch.FullSeriesCollection(ch.SeriesCollection.Count)
                .Name = "='" & ActiveSheet.Name & "'!$A$" & cl.Row
                .XValues = "='" & ActiveSheet.Name & "'!$L$" & cl.Row
                .Values = "='" & ActiveSheet.Name & "'!$N$" & cl.Row
                .ApplyDataLabels
                .HasLeaderLines = False
                With .DataLabels
                    .ShowValue = False
                    .ShowSeriesName = True
                    .Position = xlLabelPositionAbove
                End With
            End With
        End If
    Next
End Sub