makro anpassen

Sub Makro4()
Sheets("DatenAusSheet1").Activate
Range("D1").Select
ActiveCell.FormulaR1C1 = "1"
Range("D2").Select
ActiveCell.FormulaR1C1 = "2"
Range("D3").Select
ActiveCell.FormulaR1C1 = "3"
Range("D1:D3").Select
With Sheets("DatenAusSheet1")
'Inhalte Werte zählen aber ab A4 bis Ende
anzd = .Cells(Rows.Count, 1).End(xlUp).Row
' AutoFill mit der Aktiven Zelle, weil soll runterzählen 1,2,3,4,5 usw.Siehe oben Range D1:D3
.[D3].AutoFill Destination:=.Range("D3:D" & anzd), Type:=xlFillDefault
End With
End Sub