beschrieben Zeile löscht.
Private Sub CommandButton2_Click()
Dim loLetzte As Long
With Sheets("Arbeitsmittel")
loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile in Spalte A, Spalte anpassen
.Cells(loLetzte, 1).EntireRow.Delete
End With
End Sub
Das funktioniert auch.
Nun soll er aber nur die Werte aus A bis H löschen. Geht das?