Makro so viel wie gezählt in Y kopieren

Sub Makro1()
quellSpalte = 25     'Spalte Y
With Sheets("Unterricht Zusammenstellen")
anzd = .Cells(Rows.Count, quellSpalte).End(xlUp).Row
[o4].AutoFill Destination:=.Range("o4:o" & anzd), Type:=xlFillDefault
End With
quellSpalte1 = 25     'Spalte Y
With Sheets("Unterricht Zusammenstellen")
anzd = .Cells(Rows.Count, quellSpalte1).End(xlUp).Row
[p4].AutoFill Destination:=.Range("p4:p" & anzd), Type:=xlFillDefault
End With
End Sub