Hallo
so?
Sub Lösche() Dim LR As Long, i As Long, Sp As Integer Sp = 2 'Spalte B LR = Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte LR = Int(LR / 2) * 2 For i = LR To 2 Step -2 Cells(i, Sp).ClearContents Next End Sub
LG UweD