to column total array converter

[yoseeeph]

defaray :=	1	0	0	1	0
0	1	1	0	1
1	0	0	0	1
0	1	0	1	0
1	0	1	0	0
0	1	0	1	1
1	1	1	1	1
0	0	1	0	1
1	0	1	1	0
0	1	1	1	1
colsum_array :=	5	5	6	6	6

write a vba code for me thanks.

 

[yoseeeph]

this was the excel picture

 

[kvsrinivasamurthy]

Data range B2:F11. Result in B13:F13

Sub SumColumns()
Dim Rng As Range
Dim Clms&, T&
Set Rng = Range("B2:F11")
Clms = Rng.Columns.Count
ReDim R(1 To Clms)
For T = 1 To Clms
R(T) = Evaluate("SUM(Index(" & Rng.Address & ",," & T & "))")
Next T
Range("B" & Rng.Rows.Count + 2).Resize(1, Clms) = R
End Sub

 

[kvsrinivasamurthy]

Code Modified

Sub SumColumns()
Dim Rng As Range
Dim Clms&, T&
Set Rng = Range("B2:F11")
Clms = Rng.Columns.Count
ReDim R(1 To Clms)
For T = 1 To Clms
s = Rng.Row
R(T) = Evaluate("SUM(Index(" & Rng.Address & ",," & T & "))")
Next T
Range("B" & Rng.Row + Rng.Rows.Count).Resize(1, Clms) = R
End Sub