Not quite sure what you want since you did NOT provide examples and
before/after.

Sub sumifzzzz()
mysum = 0
For Each c In Range("d12:d16")
If Right(c, 4) = "zzzz" Then
mysum = mysum + Left(c, Len(c) - 4)
End If
c.Offset(, 1) = mysum
Next c
MsgBox mysum
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"WINS" wrote in message
...
Hi
I am currently trying to work out a code which would sum up previous rows
upon reaching each row containing 'zzzz' in a column which contain some
numbers followed by a "zzzz" where the total of the numbers appears above
should be inserted.

i have defined first and last row containing the numbers and the "zzzz'

the code I have been trying to work out is as follows

Range("H8").Select

For I = FirstRow To FinalRow

Range("H" & I).Select

If CELL("contents", "H" & I)= "zzzz" _

Then ActiveCell.FormulaR1C1 = "= sum ("H"& sumstart ": H"&
I)

End If

sumstart = I
Next I

I am new to VBA and cannot work my way through, so if someone can help me
out...

Thankng you in advance