Clearing cells based on a variable

[PDaria]

Hello,

How would I be able to clear the contents of adjacent cells based on the value in another? For instance if VDS column value is bigger than zero like 2, then cells B1 and B2 shall be cleared from their existing content that is currently "Good". If value is 4, then 1st 4 cells shall be cleared.

A B C D E F G H
[TABLE="width: 512"]
<colgroup><col style="width:48pt" width="64" span="2"> <col style="width:48pt" width="64" span="3"> <col style="width:48pt" width="64" span="3"> </colgroup><tbody>[TR]
[TD="class: xl79, width: 64"]Lane 1
[/TD]
[TD="class: xl79, width: 64"]Lane 2[/TD]
[TD="class: xl79, width: 64"]Lane 3[/TD]
[TD="class: xl79, width: 64"]Lane 4[/TD]
[TD="class: xl79, width: 64"]Lane 5[/TD]
[TD="class: xl79, width: 64"]Lane 6[/TD]
[TD="class: xl79, width: 64"]Lane 7
[/TD]
[TD="class: xl79, width: 64"]VDS
[/TD]
[/TR]
[TR]
[TD]Good
[/TD]
[TD]Good[/TD]
[TD]Good
[/TD]
[TD]Good
[/TD]
[TD]Good
[/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"]2
[/TD]
[/TR]
</tbody>[/TABLE]

<colgroup><col width="64" span="2"><col width="64" span="3"><col width="64" span="3"></colgroup><tbody>
[TD="width: 64"]Card Off[/TD]
[TD="width: 64"]Card Off[/TD]
[TD="width: 64"]Card Off[/TD]
[TD="width: 64"]Card Off[/TD]
[TD="width: 64"]Good
[/TD]
[TD="width: 64"]Good
[/TD]
[TD="width: 64"][/TD]
[TD="width: 64, align: right"]4
[/TD]

</tbody>

 

[Yongle]

Perhaps..

Sub ClearValues()
    Dim Cel As Range
    For Each Cel In Range("H2", Range("H" & Rows.Count).End(xlUp))
        If Cel > 0 Then Range("A" & Cel.Row).Resize(, Cel).ClearContents
    Next Cel
End Sub

assumes VDS is in column H