Bubble Chart labels disappearing

Hi,
Is there a way to automatically update Data labels in a bubble chart, when the data series change?

Issue: each time I add new influencers and refresh the charts, the data labels drop out
Each bubble needs to have the Stakeholder Initials as the Data Label, found on the Chart Data tab in the 3rd column (initials)

I know how to do this manually, but have no idea at all how to automate this.

Can anyone help?Chart.png
Chart data.png

I did find a code which worked well for adding the Influencer Name (data series name) into the bubbles, but I haven't been able to get it working to retrieve the Values from Cells - which is what I have to do
Here is the code:

Sub BubbleLabel_Click()

Dim BC As ChartObject
Dim i As Integer

Set BC = ActiveSheet.ChartObjects(1)

For i = 1 To BC.Chart.SeriesCollection.Count

With BC.Chart.SeriesCollection(i)
.ApplyDataLabels
.DataLabels.ShowSeriesName = True
.DataLabels.ShowValue = False
End With

Next i

End Sub