Test.CSM.Dev

[MS EXCEL]Макросы

Собсно задание сделать макрос, который из данных в выделенных ячейках рисует круговую диаграмму.
т.е. в ячейках даны напимер кол-ва продаж товаров и мне надо нарисовать таблицу сколько процентов от продаж какой товар составляет.
собсно это было не очень трудно, но в добавок к тому что макрос выполняет мне задание он ещё и выдает ошибку-хз что делать, помогите

Code:
Sub mac()

Dim cur_range As Range
    With ActiveSheet
        Set cur_range = Selection
        cur_range.Activate
        For x = 1 To cur_range.Rows.Count
            For y = 1 To cur_range.Columns.Count
            
                S = S + cur_range(x, y).Value
            Next y
        Next x
    End With
        MsgBox ("Ñóììà: " & S)

Dim cur_range2 As Range
With ActiveSheet
   Set cur_range2 = Selection
        cur_range2.Activate
        For x = 1 To cur_range.Rows.Count
            For y = 1 To cur_range.Columns.Count
            cur_range2(x, y) = cur_range(x, y) / (S / 100)
                S2 = S2 + cur_range2(x, y)
            Next y
        Next x
    End With
MsgBox ("Ñóììà2: " & S2)

Charts.Add
    ActiveChart.ChartType = xlPie
    ActiveChart.SetSourceData Source:=Sheets("Ìàêðîñ").Range(cur_range2), PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Ìàêðîñ"
    ActiveChart.HasTitle = False
End Sub