Want to clear contents also from left column

Sub ClearContents()
    Dim cl As Range, rCol As Range, RClear As Range
    Set rCol = Range("C2:C6", Range("C6").End(xlUp))
    rCol.Select
    Application.ScreenUpdating = False
    For Each cl In rCol
        If cl.Value = 0 Then
            Set RClear = cl.End(xlToRight)
            Set RClear1 = cl.End(xlToLeft)
            cl.ClearContents 'you can delete this to keep the formula
            RClear.ClearContents
            RClear1.ClearContents
        End If
    Next cl
    Application.ScreenUpdating = True
     
End Sub