Sub Graf()

Dim aList As Worksheets
aList = Worksheets("Prod1")

Skv = 0
number_skv = 2 'iiia? noieaoa n iiia?ii nea
Debit_n = 34 'iiia? noieaoa n aaaeoii ?eaeinoe
i = 5
xSeries =
ySeries =

While aList.Cells(i, number_skv) <> ""
      number_str = 0
      Skv = aList.Cells(i, number_skv)
      While aList.Cells(i, number_skv) = Skv
            If aList.Cells(i, Debit_n) <> 0 Then
               number_str = i    'caiiieiaao iiia? no?iee n iaioeaaui aaaeoii
            Else
            End If
      i = i + 1
      Wend
      If number_str <> 0 Then
         aList.Cells(number_str, itog) = 1
      Else
      End If
Wend



Dim oChart1, oChart2 As Chart

Set oChart1 = ActiveWorkbook.Charts.Add(, ActiveSheet)
oChart1.SetSourceData (Sheets("Prod1 (2)").Range("A1:A10"))
oChart1.ChartType = xlLineMarkers

Dim oSeries1 As Series
Set oSeries1 = oChart1.SeriesCollection.NewSeries
oSeries1.Values = Worksheets("Prod1 (2)").Range("B1:B10")
oSeries1.Border.ColorIndex = 20   ' oaao eeiee



Set oChart2 = ActiveWorkbook.Charts.Add(, ActiveSheet)
oChart2.SetSourceData (Sheets("Prod1 (2)").Range("A15:A25"))
oChart2.ChartType = xlLineMarkers

Dim oSeries2 As Series
Set oSeries2 = oChart2.SeriesCollection.NewSeries
oSeries2.Values = Worksheets("Prod1 (2)").Range("B15:B25")

With oChart1
      .PlotArea.Interior.ColorIndex = 50 ' caeeaea iaeanoe iino?iaiey a?aoeea
'      .Border.ColorIndex = 20
End With

oChart1.Location xlLocationAsObject, "Prod1 (2)"
oChart2.Location xlLocationAsObject, "Prod1 (2)"



'Dim oSeries As Series
'Set oSeries = Worksheets("Prod1 (2)").ChartObjects("Prod1 (2)").Chart.SeriesCollection.NewSeries
'oSeries.Values = Worksheets("Prod1 (2)").Range("B1:B10")

End Sub