AutoFill

Sub auffuellen()
Dim z As Integer
Range("G1").Select                                 		 	'Auswahl der Startzelle
ActiveCell.Offset(1, 0).Select                      		'Zeile unter Startzeile selektieren
Range(Selection, Selection.End(xlToRight)).Select    	 'Kopieren bis Ende Zeile, Befehl Copy' _
_
_
z = Range("A2").End(xlDown).Row			‘Festsstellung wie “lang” Zeile A
Selection.AutoFill Destination:=Range(Cells(2, 7), Cells(z, 8))
End Sub

Bei der Selection.Autofill sagt er mir "Die AutoFill-Methode des range objektes konnte nicht ausgeführt werden.".
Was ist das los?
Vielen Dank!!!
Phil