Sub AddDataLabels()
    Dim se As Series
    Dim pts As Points
    Dim pt As Point
    Dim rngLabels As Range
    Dim iPointIndex As Integer
    ' Значения процентов
    Set rngLabels = Range("B12:l12")
    ' Первый ряд
    Set se = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2)
    ' Включаем подписи
    se.HasDataLabels = True
    ' Обработка
    Set pts = se.Points
    For Each pt In pts
        iPointIndex = iPointIndex + 1
        pt.DataLabel.Text = rngLabels.Cells(iPointIndex).Text
        pt.DataLabel.Font.Bold = True
        pt.DataLabel.Position = xlLabelPositionAbove
    Next
End Sub