Tạo Macro đặt tên cho vùng dữ liệu và cách đặt công thức khi tham chiếu đến vùng đó!

[anhpn01]

Các anh chị ơi, giả sử em có 1 bảng excel từ (A1 : Rn), trong đó : n = activesheet.userange.rows.count
Bây giờ, em muốn đặt tên cho Range("B2:Bn") là "Cot_TK" , Range(R2:Rn) là "Sotien")
cuối cùng em đặt công thức cho ô
S1 = Sumproduct((cot_TK="1112")*(sotien))
Nhưng khi chạy macro xong thì nó báo tại ô S1 là #Name

Đoạn macro của em như sau : ( Sheetname là sheet1 )

Sub Tinhtien ()Dim n as double
n = sheets("Sheet1").usedrange.rows.count
Range("B2:B"&n).Select
ActiveWorkbook.Names.Add Name:="Cot_TK", RefersToR1C1:= "=Sheet1!R1C1:RnC1"
Range("R2:R"&n).Select
ActiveWorkbook.Names.Add Name:="Sotien", RefersToR1C1:= "=Sheet1!R1C1:RnC1"
Range("S1").select
Activecell.formulaR1C1="=sumproduct((Cot_TK="1112")*(sotien))
End sub

Kính mong các anh chị xem giúp em đoạn trên, không biết bị sai chỗ nào nữa. Híc!