Matching row colors with pie chart colors

I have 9 rows(from 2-10) that fill up the pie chart.

I have this macro running so that each pie piece matches the color of each row:

Sub ColorPies()
Dim cht As ChartObject
Dim i As Integer
Dim vntValues As Variant
Dim s As String
Dim myseries As Series

For Each cht In ActiveSheet.ChartObjects
For Each myseries In cht.Chart.SeriesCollection

If myseries.ChartType <> xl3DPie Then GoTo SkipNotPie
s = Split(myseries.Formula, ",")(2)
vntValues = myseries.Values

For i = 1 To UBound(vntValues)
myseries.Points(i).Interior.Color = Range(s).Cells(i).Interior.Color
Next i
SkipNotPie:
Next myseries
Next cht
End Sub

However, the last, 9th row, doesn't match the color with the pie piece, it is simply white. How do I rectify that?