Joel's, as amended, is looking for ONLY * whereas mine will find any of
these because it is looking for PART. You should always FULLY state your
problem in the OP.

a*a
a
a
a
a
aa*
a
a
*aa

*


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"pmxgs" wrote in message
...
Thanks for your prompt reply.
I copy pasted your code and ran this procedure but nothing happened.
I don't know what I'm doing wrong.
Just for confirmation, when I said "*" I litterally mean the asterisk
character, not any character.

thanks

"Joel" wrote:

I write this code all the time. Most people want a blank row added after
the
totals. You mae it a little easier than most people by putting the * in
colunn A.


StartRow = 3
RowCount = StartRow
Do While Range("A" & RowCount) < ""
If Range("A" & RowCount) = "*" Then
Range("B" & RowCount).Formula = _
"=SUM(B" & StartRow & ":B" & RowCount & ")"
Range("B" & RowCount).Copy _
Destination:=Range("B" & RowCount & ":H" & RowCount)
StartRow = RowCount + 1
End If
RowCount = RowCount + 1
Loop

"pmxgs" wrote:

Hi,

Can someone please help me how to write this procedure.
I'm just beginning to learn vba so I don't know which methods and
properties to use.
What I want to do is this:
Go through every row (3 until 150) on column A and if the character "*"
(asterisk) is found in each of these rows then write the following
formulas
on each column. ex: sum(b3:b15),sum(c3:c15)....sum(h3:h15) assuming
that the
asterisk is found on row 15.
Then start looking for an asterisk again and when it is found write the
same
formulas , but this time the sum will only include the rows that were
not
included previoulsy.ex: sum(b16:b28),sum(c16:c28)....sum(h16:h28) (I'm
assuming the asterisk is found on row 28).
The sum has to be written in every row which has an asterisk, the
formula is
repeated in every column from B to H.
thanks