Dear Sir,

I need to sub total many clocks of numbers at get a grand total at the end
of the list as follows :


1 A B C D E E
2
3 250 350 450 550 650
4 250 350 450 550 650
5 250 350 450 550 650
6 250 350 450 550 650
7 250 350 450 550 650
8 Sub Total 1250 1750 2250 2750 3250
9
10
11 250 350 450 550 650
12 250 350 450 550 650
13 250 350 450 550 650
14 250 350 450 550 650
15 250 350 450 550 650
16 Sub Total 1250 1750 2250 2750 3250
17
18
19
20 250 350 450 550 650
21 250 350 450 550 650
22 250 350 450 550 650
23 250 350 450 550 650
24 250 350 450 550 650
25 Sub Total 1250 1750 2250 2750 3250
26
27 Grand Total 3750 5250 6750 8250 9750

Is there any singlle button for me to click aftet higlighting A3:E27 ?

Summation button only allows me to add one block at a time.

Any macro to do the job ? There are some empty cells or empty column without
any number for some blocks.

Thanks

Low
--
A36B58K641

hi,
try this...
Sub getrange()
Dim rng1 As Range
Dim rng2 As Range

Set rng1 = Cells(3, 1)
Set rng2 = Cells(65000, 1).End(xlUp).End(xlToRight)
Range(rng1, rng2).Select
End Sub

worked for me on your data.
Regards
FSt`
"Mr. Low" wrote:

Dear Sir,

I need to sub total many clocks of numbers at get a grand total at the end
of the list as follows :


1 A B C D E E
2
3 250 350 450 550 650
4 250 350 450 550 650
5 250 350 450 550 650
6 250 350 450 550 650
7 250 350 450 550 650
8 Sub Total 1250 1750 2250 2750 3250
9
10
11 250 350 450 550 650
12 250 350 450 550 650
13 250 350 450 550 650
14 250 350 450 550 650
15 250 350 450 550 650
16 Sub Total 1250 1750 2250 2750 3250
17
18
19
20 250 350 450 550 650
21 250 350 450 550 650
22 250 350 450 550 650
23 250 350 450 550 650
24 250 350 450 550 650
25 Sub Total 1250 1750 2250 2750 3250
26
27 Grand Total 3750 5250 6750 8250 9750

Is there any singlle button for me to click aftet higlighting A3:E27 ?

Summation button only allows me to add one block at a time.

Any macro to do the job ? There are some empty cells or empty column without
any number for some blocks.

Thanks

Low
--
A36B58K641

Dear Sir,

Thanks for your macro.

Low

--
A36B58K641


"FSt1" wrote:

hi,
try this...
Sub getrange()
Dim rng1 As Range
Dim rng2 As Range

Set rng1 = Cells(3, 1)
Set rng2 = Cells(65000, 1).End(xlUp).End(xlToRight)
Range(rng1, rng2).Select
End Sub

worked for me on your data.
Regards
FSt`
"Mr. Low" wrote:

Dear Sir,

I need to sub total many clocks of numbers at get a grand total at the end
of the list as follows :


1 A B C D E E
2
3 250 350 450 550 650
4 250 350 450 550 650
5 250 350 450 550 650
6 250 350 450 550 650
7 250 350 450 550 650
8 Sub Total 1250 1750 2250 2750 3250
9
10
11 250 350 450 550 650
12 250 350 450 550 650
13 250 350 450 550 650
14 250 350 450 550 650
15 250 350 450 550 650
16 Sub Total 1250 1750 2250 2750 3250
17
18
19
20 250 350 450 550 650
21 250 350 450 550 650
22 250 350 450 550 650
23 250 350 450 550 650
24 250 350 450 550 650
25 Sub Total 1250 1750 2250 2750 3250
26
27 Grand Total 3750 5250 6750 8250 9750

Is there any singlle button for me to click aftet higlighting A3:E27 ?

Summation button only allows me to add one block at a time.

Any macro to do the job ? There are some empty cells or empty column without
any number for some blocks.

Thanks

Low
--
A36B58K641