Записи легенды - круговая диаграмма - Excel VBA

Question

У меня проблема с пустыми записями легенды (равными количеству непустых строк активной таблицы), встроенными в мою круговую диаграмму, созданную с использованием объекта фигур в VBA (Excel).

Прежде всего я надеваюне знаю, почему это происходит, и когда я пытался удалить эти ненужные записи, используя co.chart.legend.legendentries (i) .delete, но он показывал ошибку. Ниже приведен фрагмент основного кода. снимок экрана Excel

Sub test()
Dim i, t, m As Integer
Dim wb As Workbook
Dim ws As Worksheet
Dim co As Shape
Set wb = ThisWorkbook
t = 2
m = 2
i = 11
For Each co In ActiveSheet.Shapes
co.Delete
Next co
Set ws = Sheets("TimeSheet")
ws.Select
Set co = ws.Shapes.AddChart2
With co
    .chart.ChartType = xl3DPie
    .chart.ChartStyle = 264
    .chart.ChartArea.Format.Fill.ForeColor.SchemeColor = 1
    .chart.ChartGroups(1).FirstSliceAngle = 90
    .chart.SeriesCollection.NewSeries
    .chart.SeriesCollection(1).Values = ws.Range(Cells(i, 3), Cells(i, 5))
    .chart.SeriesCollection(1).XValues = ws.Range(Cells(1, 3), Cells(1, 5))
    .chart.SeriesCollection(1).HasDataLabels = True
    .chart.SeriesCollection(1).DataLabels.Position = xlLabelPositionBestFit
    .chart.SeriesCollection(1).DataLabels.ShowPercentage = True
    .chart.SeriesCollection(1).DataLabels.ShowValue = True
    .chart.SeriesCollection(1).HasLeaderLines = True
    .chart.SeriesCollection(1).LeaderLines.Border.ColorIndex = 1
    .chart.HasTitle = True
    .chart.ChartTitle.Text = ("Team " & Cells(m, 1))
    .chart.HasLegend = True
    .Left = Range(Cells(t, 7), Cells(t, 7)).Left
    .Height = Range(Cells(t, 7), Cells(t + 7, 7)).Height
    .Width = Range(Cells(t, 7), Cells(t, 9)).Width
    .Top = Range(Cells(t, 7), Cells(t, 7)).Top
End With
t = t + 9
m = i + 1
last = co.chart.SeriesCollection(1).Points.count
Data = co.chart.SeriesCollection(1).Values
For g = 1 To last
If Data(g) = 0 Then
co.chart.SeriesCollection(1).Points(g).DataLabel.Delete
End If
Next
End Sub