Hallo

Hatte zuerst versucht, die ganze Zeile zu löschen ( Deshalb rückwärts gezählt)

Dann reicht das

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
    
    For i = 1 To LR Step 2
        Cells(i, Sp).ClearContents
    Next
End Sub

LG UweD