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

Hello.
In Excel Worksheet I need to edit a Chart (seriescollection values and format.fill
I got a code with the macro recorder on. For me such codes are confusing.
I need to modify the following codes to look for efficiency.

Here my codes:

Sub editseriescollection()
	ActiveSheet.ChartObjects("Gráfico 1").Activate
	ActiveChart.FullSeriesCollection(2).Values = "=qry_123!$C$2:$C$15"
	ActiveSheet.ChartObjects("Gráfico 1").Activate
	ActiveChart.Axes(xlCategory).Select
	ActiveChart.FullSeriesCollection(1).XValues = "=qry_123!$E$2:$E$15"
	ActiveChart.ChartArea.Select
End Sub

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

How can I write these codes lines within a "With" "End With Code?
Also, how can I write

=qry_123!$C$2:$C$15

As VBA:

qry_123 Range("C2", Range("C2").End(xlDown))

If this is correct.

I hope some else can help me.
Cheers