Want to clear contents also from left column

hello
i want to little change in below code
in below code i want to delete also left column data

Set RClear = cl.End(xlToRight)

Set RClear = cl.End(xlToLeft)

thanx a lot

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