Hi Halim,

Instead of displaying the total in the MsgBox, how would I code this to
display the total in the first blank row?

Thanks.

"Halim" wrote:

Hi dread,

You can do this :

Sub Total()
Dim R As Range, TTL As Integer
For Each R In Range("B1:B50") ' change Range("B1:B50") to your range
If R.Value < "" And IsNumeric(R.Value) Then TTL = TTL + R.Value
Next R
MsgBox TTL
End Sub

--

Regards,

Halim


"dread" wrote:

I have a macro that copies information from several worksheets into one
worksheet. After the information is copied the macro sorts the new worksheet
so that blank rows are moved to the end. I want to code the macro to also
find the first blank row (after the copied data) and give me totals. How do
I do this?

Thank you.