Q:

excel vba sorting currency column descending

I have a sheet with 2 columns A has shopnames and B has currency values
I want to sort in descending order column B
Here's what I have done:
With Sheets("helpsheet")
    .Sort Key1:=Range("A"), Order1:=xlDescending, Header:=xlYes       
End With

It doesn't work.  What do I have to do differently? 

A:

There are some options of sorting available in VBA.  The simplest way to improve you code is to add a range of data which you want to sort.  Therefore you need to improve your code to the following:
With Sheets("helpsheet").Range("a1").CurrentRegion
    .Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes
End With

What I did:

assumed that your data range starts in Range("A1") and makes a region (therefore I used CurrentRegion property in With line. 
I set sorting key to Range("B1") according to information from your question. 

If required you could change these points accordingly to your situation. 