Color index

[anilg0001]

I want to delete the value of a cell if its colorindex = yellow

i wrote this code
but some where its shows error.

Option Explicit
Sub YelloDelete()
Dim M As Long
Range("A1").Select
M = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For M = M To 1 Step -1
With Range("A" & M)
.ColorIndex = 6
.cell.Value = ""
End With
Next M
End Sub

I want to delete the value from A range to E range if its back ground color is yellow?
understand the question?

 

[VoG]

Try

Sub YellowDelete()
Dim LR As Long, i As Long, j As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LR
    For j = 1 To 5
        With Cells(i, j)
            If .Interior.ColorIndex = 6 Then .Clear
        End With
    Next j
Next i
End Sub

 

[anilg0001]

thanks
i have some more doubts

if my B range or E range have the value as 'rental' then i want to delete
A,B and D,E
suppose
if b15 contain rental then i want to delete the value of a15 and b15
if E23 contain rental then i want to delete the value of D23 and E23

'rental' only shows at B range or E range

 

[VoG]

Try

Sub YellowDelete()
Dim LR As Long, i As Long, j As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LR
    For j = 1 To 5
        With Cells(i, j)
            If .Interior.ColorIndex = 6 Then .Clear
            If (j = 2 Or j = 5) And LCase(.Value) Like "*rental*" Then .Offset(, -1).Resize(, 2).Clear
        End With
    Next j
Next i
End Sub