VBA SUM Formula help

Hi Team, :help

How to make code dynamic to cover last row if data increase?. Thanks in advance !!

Below is my code it is giving Result 12, Instead of 33,


Sub Test_sum()

Dim lr As Long

lr = Range("B100").End(xlUp)

Range("D2") = Application.WorksheetFunction.Sum(Range("b2:B" & lr))

End Sub

A	B
Name	Count
a	5
b	7
c	10
d	8
e	3

Thanks
Mallesh

Hello,
You need to add the row property

Code:

---

lr = Range("B100").End(xlUp).row

---

Thanks !