Kann mir jemand helfen bei der Vervollständigung des unten stehenden Codes.
- Mittels CB die letzten 16 Zeilen löschen.
- Löschvorgang bis maximal zur Zeile 75, darunter ( Für eine Hilfe bin ich dankbar.
mfg
Ernst Dunkel
Sub Löschen() 'Bereich über letzte Zeile löschen
Dim LRow As Range
Set LRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count)
LRow.Select
End Sub