Option Explicit

Sub TryThis()
Dim oWsh As Worksheet
Dim oShp As Shape
Dim oChart As Chart
Dim oColl As Series
Dim oPoint As Point
Dim oDtaLabel As DataLabel
Dim rngUsed As Range, rngSource As Range, rngData As Range
Dim rngX As Range, rngY As Range, rngBubble As Range
Dim x As Long

'assuming:
'SourceData Source = Activesheet
'SourceData Source = .Columns(1) to .Columns(2)
'name the points with the 3rd column-values bubbles in .Columns(3)
'SourceData Source = Header .Rows(1)

Set oWsh = ThisWorkbook.ActiveSheet

With oWsh
   For Each oShp In .Shapes
      oShp.Delete                                  'if desired
   Next oShp

   Set rngUsed = .Cells(1, 1).CurrentRegion        'schedule necessary ranges
   
   Set rngData = rngUsed.Offset(1, 0).Resize(rngUsed.Rows.Count - 1, _
      rngUsed.Columns.Count)
      
   Set rngX = rngData.Columns(1)
   Set rngY = rngData.Columns(2)
   Set rngBubble = rngData.Columns(3)

   Set oShp = .Shapes.AddChart(xlBubble)           'add chart
   Set oChart = oShp.Chart
   With oChart
      .SetSourceData Source:=Range(rngX, rngY)
      .Legend.Delete                               'if desired
      
      Set oColl = .SeriesCollection(1)             'just constituted
      For Each oPoint In oColl.Points
         oPoint.ApplyDataLabels                    'make it
         x = x + 1
         oPoint.DataLabel.Text = rngBubble.Cells(x).Value
         'just for fun
         On Error Resume Next
         oPoint.Format.Fill.ForeColor.SchemeColor = x + 1
         On Error GoTo 0
         'so refer to appropriate object
      Next oPoint
   
   End With
   
   With oShp
      .Top = 200                                   'refer to appropriate object
      .Left = 200
   End With

End With

End Sub