Hallo zusammen,

ich möchte in mein Macro die Funktion einbauen, dass mit Klick auf einen Button die gesamte Liste von A2:J(welche auch immer die letzte Zeile ist) löscht. Die Liste wird monatlich benötigt und deshalb verändert sich die letzte Zeile kontinuierlich. 

Aktuell habe ich das:
Sub Liste_leeren()

Set cm = ThisWorkbook.Worksheets("Commitments")

Lastrow = cm.Cells(Rows.Count, 1).End(x1Up).Row

cm.Range("a2:J" & Lastrow).ClearContents
End Sub

Bei Lastrow= ..... wird mir der Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler angezeigt, wodurch der Befehl nicht ausgeführt wird.

Kann mir jemand weiterhelfen?

Vielen Dank im voraus und viele Grüße

Nic