Hallo Zusammen,
ich möchte einen Bereich von 4 nebeneinander liegenden Zellen mit der Funktion .Autofill auf alle Zellen in diesen Spalten bis zum Ende der Daten erweitern.
Mein Code dafür ist folgender:

Dim sourcerange
Dim fillrange
Dim AE As Workbook
Dim lastrow As Long
With AE.Sheets("sheet1")
lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
sourcerange = AE.Sheets("sheet1").Range("AJ4:AM4")
fillrange = AE.Sheets("sheet1").Range("AJ5:AM" & lastrow)
sourcerange.AutoFill Destination:=fillrange

Das Problem ist, dass dann in der letzten Zeile der Fehler: "Laufzeitfehler '424': Objekt erforderlich" auftritt und ich keine Ahnung habe woran es liegen könnte.
Habe mir schon ein paar Forumseinträge dazu durchgelesen aber nichts hilfreiches gefunden.
Würde mich sehr über Hilfe freuen :)
Grüße Basti