For Each CEL In Graph.Range("A2:A13")
If CEL.Value Like "" Or CEL.Value Like "0" Then
Range(CEL.Address).Offset(0, 1).ClearContents
Range(CEL.Address).Offset(0, 2).ClearContents
Range(CEL.Address).Offset(0, 3).ClearContents
Range(CEL.Address).Offset(0, 4).ClearContents
End If
Next CEL