Welcome to the forum!

If you record a macro, you would see that you need to use r1c1 notation.

e.g.
[VBA]Sub UpdateSeries()
Dim rSales As Range, rIngresos As Range, rContribution As Range, cell As Range
Dim lastDataRow As Long, cellval As Variant

Range("A1").Select 'Make sure that no object is selected.
Set cell = Range("A" & Rows.Count).End(xlUp)
cellval = cell.Value2
Do
Set cell = cell.Offset(-1)
cellval = cell.Value2
Loop Until cellval <> 0
lastDataRow = cell.Row
Debug.Print lastDataRow
Set rSales = Range("B1", "B" & lastDataRow)
Set rIngresos = Range("C1", "C" & lastDataRow)
Set rContribution = Range("D1", "D" & lastDataRow)

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Values = "=" & rSales.Worksheet.Name & "!" & rSales.Address(True, True, xlR1C1)
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).Values = "=" & rIngresos.Worksheet.Name & "!" & rIngresos.Address(True, True, xlR1C1)
ActiveChart.SeriesCollection(3).Select
ActiveChart.SeriesCollection(3).Values = "=" & rContribution.Worksheet.Name & "!" & rContribution.Address(True, True, xlR1C1)
Range("A1").Select
End Sub[/VBA]