(Hỏi) Merger và tính tổng vùng chọn

[yamakashi2003]

Em chào anh chị ạ,
Nhờ anh chị chỉ giúp em cách code cho trường hợp:
Nếu em có 1 bảng dữ liệu số, khi em chọn 1 vùng (vùng này luôn thay đổi), thì ở cột tiếp theo, các dòng ở cột này sẽ merge thành 1 ô, và tính tổng các ô ở vùng chọn ban đầu ạ
Số dòng ở vùng chọn = số dòng của cột merge ạ
Em xin cảm ơn

 

[befaint]

'*
Function TinhTong(byval Rng as Range) as Double
Dim Cell_ as Range
For each Cell_ in Rng
TinhTong = TinhTong + Cell_.value
Next Cell_
End Function
'**
Sub GopRange(byval Rng as range)
const numColOffset = 2
Dim CellTarget as range
set CellTarget = Rng .Cells(1, rng.Columns.Count + numColOffset)
CellTarget.value = TinhTong(Rng)
CellTarget.Resize(rng.Rows.Count, 1).MergeCells = True
End sub
'***
Sub RunHere()
If TypeName(selection) = "Range" then Call GopRange(selection)
End sub