VBA SUM Formula help

[malleshg24]

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

[pike]

Hello,
You need to add the row property
lr = Range("B100").End(xlUp).row

[malleshg24]

Thanks !