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]

 

[anglais428]

What error are you seeing?
The code looks fine.

 

[Sharid]

Forgot to mention that bit. Lol

it just returns £00.00

So if column B Row 4 and below had

Tshirt = £10.50
Shoes = £30.00
Jacket = 40.00

The answer should be £80.50 in Column B2 and not £00.00

 

[AlanY]

what do you get with a formula?

=sum(B4:B6)

 

[Sharid]

I get £80.50

 

[WaterGypsy]

Looks OK to me , what goes wrong ?

 

[WaterGypsy]

Forgot to mention that bit. Lol

it just returns £00.00

So if column B Row 4 and below had

Tshirt = £10.50
Shoes = £30.00
Jacket = 40.00

The answer should be £80.50 in Column B2 and not £00.00

Does col B contain £10.50 ,or tshirt = £10.50?

 

[Sharid]

Instead of giving the total value it give me £00.00

 

[Sharid]

It only contains the value,

Column A has the item name e.g. Tshirt Column B has the Amount

 

[anglais428]

Try:

LR = Cells(4, 2).End(xlDown).Row
ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R" & LR & "C)"