Using VBA to set cell values based on values in the same row

[Swagner]

Hey guys, need a little help here.

I'm working on a proposal sheet for a business and I want to add a button on the top that would let them reset the quantities all to 0. I have a "Description" column that has values such as header, product, description, and subtotal. Basically what I need is some VBA to set each row's quantity value to 0 if the "Description" column = product.

I've tried some things, but just can't get it to work.

Thanks all!

 

[Swagner]

Headers are in row 51 and contain columns A:W

 

[Fluff]

Ok, try

Sub Swagner()
   Dim Lr As Long
   With ActiveSheet
      If .FilterMode Then .ShowAllData
      Lr = .Range("D" & Rows.Count).End(xlUp).Row
      .Range("A51:W" & Lr).AutoFilter 4, "Product"
      .Range("I52:I" & Lr).Value = 0
      .ShowAllData
   End With
End Sub