Dim ejex As String, ejey As String
Dim graficos As String
Worksheets("Sheet1").Activate

ejex = "C" + CStr(cont) + ":" + "C" + CStr(conta)
ejey = "K" + CStr(cont) + ":" + "N" + CStr(conta)

graficos = ejex & "," & ejey

Dim rng As Range
Dim cht As Object

Set rng = ActiveSheet.Range(graficos)
Set cht = ActiveSheet.Shapes.AddChart

cht.Chart.SetSourceData Source:=rng

...
cht.Chart.SetSourceData Source:=rng

Dim ser As Series
For Each ser In cht.Chart.FullSeriesCollection
    ser.ApplyDataLabels
Next