How to update chart data range using vba

shtName.ChartObjects("Chart 3").Activate
ActiveChart.SetSourceData Source:=shtAdmin.Range("$A$15:$H" & LR1)

Export workbook .XLSM format to .XLS format.

Sub ExportWorkbook()
    Dim wb As Workbook
    Dim strPunitName As String
    Dim wbName As String

   Application.DisplayAlerts = False
    On Error GoTo Last
    Set wb = ThisWorkbook
    strPunitName = wb.Sheets(home).Range("C20").Value
    wbName = ThisWorkbook.Path & Application.PathSeparator & Trim(strPunitName) & ".xls" '&    Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStr(ThisWorkbook.Name, "."))
    If wbName <> vbNullString Then
    ThisWorkbook.SaveCopyAs FileName:=wbName
    End If
Application.DisplayAlerts = True
Last:
    If Err.Description <> vbNullString Then
    MsgBox Err.Description, vbInformation, title
    End
    End If
End Sub

change label to percentage in bar graph excel using vba macro

Sub set_data_labels_to_bar_chart1()

Dim i As Integer
Dim j As Integer
Dim s As Double
Dim v As Variant

Dim NoDigits As Integer
Dim PercentFormat As String
Dim myTxt As String

NoDigits = 1 'How many digits to round Millions toPercentFormat = "0.0%" 'Format string for the Percentages
With ActiveChart
  For i = 1 To .SeriesCollection.Count
  .SeriesCollection(i).HasDataLabels = True
  Next i
 
  For i = 1 To .SeriesCollection(1).Points.Count
  s = 0
   
  For j = 1 To .SeriesCollection.Count
  v = .SeriesCollection(j).Values
  s = s + v(i)
  Next j
   
  For j = 1 To .SeriesCollection.Count
  v = .SeriesCollection(j).Values
  myTxt = Round(v(i) / 1000000#, NoDigits) & "M, " & Format(v(i) / s, PercentFormat)
  .SeriesCollection(j).Points(i).DataLabel.Text = myTxt
   
  If v(i) <= 0 Then .SeriesCollection(j).Points(i).DataLabel.Delete
  Next j
  Next i
End With
End Sub