How do I only apply labels to the first data in a range?

So I basically have like 5-10 data series and I only want one label (and rest of the markers editting I have) for the first data point from each series. I'm pretty nooby at VBA so below is the code I've made from googling and learning on my own... I tried to call SeriesCollection(r).Points(1) but that wouldn't work...

Private Sub Chart_Activate()
    MsgBox "Macro Activated: Workover Labels Applied"

ActiveChart.Axes(xlCategory).MaximumScale = Sheet1.Range("B16").Value + (Sheet1.Range("B16").Value / 20)

With Chart5
    For r = 2 To SeriesCollection.Count

        With SeriesCollection(r)
            .ApplyDataLabels
            .DataLabels.ShowSeriesName = True
            .DataLabels.ShowValue = False
            .DataLabels.Position = xlLabelPositionLeft
    
            .MarkerStyle = 3
            .MarkerSize = 2
            .MarkerForegroundColor = RGB(0, 0, 0)
            .MarkerBackgroundColor = RGB(0, 0, 0)
        End With
    Next r


End With
End Sub

Thanks guys!