Sub a() Dim i As Integer For i = 1 To 8 If Cells(i, 1).Value = "M" Then Cells(i, 2).Value = "" End If Next i End Sub