Edit chart seriescollection within a "With" - "End With" Block

Not tested...

Sub editseriescollection()
    With ActiveSheet.ChartObjects("Gráfico 1").Chart
        .FullSeriesCollection(2).Values = "=qry_123!C2:C" & Range("qry_123!C2").End(xlDown).Row
        .FullSeriesCollection(1).XValues = "=qry_123!E2:E" & Range("qry_123!E2").End(xlDown).Row
    End With
End Sub

Sub editformarfill()
    ActiveChart.FullSeriesCollection(1).Format.Fill.Visible = msoFalse
End Sub