Markierte Bereiche löschen, thanks @ Erich aus KL

Sub LeertAktiveZeile()
Rows(ActiveCell.Row).ClearContents
End Sub

Sub LeertSpaltenCDderAktivenZeile()
Rows(ActiveCell.Row).Columns("C:D").ClearContents
End Sub

Sub LeertZeilenEinesMarkiertenBereichs()
Selection.EntireRow.ClearContents
End Sub

Sub LeertSpaltenCDderZeilenEinesMarkiertenBereichs()
Selection.EntireRow.Columns("C:D").ClearContents
End Sub

Sub LeertZeilenInZeilenAllerMarkiertenBereiche()
Dim rg As Range
For Each rg In Selection.Areas
rg.EntireRow.ClearContents
Next rg
End Sub

Sub LeertSpaltenCDderZeilenAllerMarkiertenBereiche()
Dim rg As Range
For Each rg In Selection.Areas
rg.EntireRow.Columns("C:D").ClearContents
Next rg
End Sub