#### charlie11k

##### New Member

- Joined
- Dec 27, 2008

- Messages
- 45

Sub Totals()

Dim i As Long, Multiplier As Double, aSum As Double

aSum = WorksheetFunction.Sum(Range("E224:E264"))

Select Case aSum

Case Is < 6000: Multiplier = 0

Case Is < 7000: Multiplier = 0.01

Case Is < 8000: Multiplier = 0.02

Case Is < 9000: Multiplier = 0.04

Case Is < 10000: Multiplier = 0.05

Case Is < 11000: Multiplier = 0.06

Case Is < 12000: Multiplier = 0.08

Case Is >= 12000: Multiplier = 0.1

End Select

For i = 224 To 264

Range("H" & i).Value = Range("E" & i).Value * Multiplier

Next i

End Sub

I need for a value not to be put into the "H" cell if cell "A" on that row has a value of either y1, y2, y3, or y4. How can i modify this?