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