A little help need on adding values in column

[Sharid]

Why is this not working

I want to add all the values in column B from row 4 down to last cell with data and the past the TOTAL in Cell B2

Private Sub CommandButton1_Click()
[FONT=arial]Dim myRange[/FONT][FONT=arial]    
 myRange = ActiveSheet.Range("B4", Range("B4").End(xlDown))
  Range("B2") = WorksheetFunction.Sum(myRange)

End Sub[/FONT]

 

[My Aswer Is This]

I would do it like this:

Sub Sum_Me()
'Modified  6/11/2019  9:03:00 AM  EDT
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Range("B2").Value = Application.WorksheetFunction.Sum(Range("B4:B" & Lastrow))
End Sub

 

[Sharid]

Anglais428 you code worked, The only problem is I have to select the CELL as active cell, which is not what I wanted to do, If no one else can help then I will have to go with your code,

 

[Sharid]

My answer is this - Thanks you for your code it worked super, and thanks to everyone else for helping out

 

[anglais428]

Glad you got sorted. You can edit what I had to:
LR = Cells(4, 2).End(xlDown).Row
Range("B2").FormulaR1C1 = "=SUM(R[2]C:R" & LR & "C)"

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

My answer is this - Thanks you for your code it worked super, and thanks to everyone else for helping out