Macro to Clear Contents of Cells when one cell = 0 %

I'm trying to create macro that will clear the contents of the cells in the 4 columns to the left of a cell that = 0 %, as well as the cell that = 0%. For example, if cell F13 = 0 % then the contents of B13:F13 would need to be cleared. The range in which data is being pasted into is B13:F27. Any ideas?

Hi,

Try this:

Sub test()

For Each cell In Range("b13:f27")
    If Not cell.Value = 0 Then
    Else
        Range("b" & cell.Row & ":" & cell.Address).Select
        Selection.ClearContents
    End If
Next

End Sub