Sub tast()
Dim myChart As ChartObject
Dim chdata As Range
Dim colcnt As Long, rowcnt As Long
Set chdata = Range("$B$22:$C$27")
For Each myChart In ActiveSheet.ChartObjects
myChart.Select
ActiveChart.SetSourceData Source:=Range(chdata.Address)
Next myChart
For colcnt = 1 To chdata.Columns.Count
chdata.Columns(colcnt).Cells(chdata.Columns(colcnt).Cells.Count).Offset(1, 0).Value = _
WorksheetFunction.Sum(Range(chdata.Columns(colcnt).Address))
Next colcnt
For rowcnt = 1 To chdata.Rows.Count
chdata.Rows(rowcnt).Cells(chdata.Rows(rowcnt).Cells.Count).Offset(0, 1).Value = _
"???"
Next rowcnt
chdata.Cells(1).Select
End Sub