VBA Auto Sort Question

[albert5445]

Hello,
I've been trawling forums and Microsoft's site for a while but still can't wrap my head around creating a usable Auto Sort Macro. Any help would be much appreciated!

For whatever reason, I cannot attach the document so here is a simplified version of my spreadsheet in Text format: (Column C has this formula: =IF((B2<=25),"Yes","No"))
Column A | Column B | Column C
Ticker ||| Price |||||| Criteria
A ||||||| 24.00 ||||| Yes
AAPL ||| 26.00 |||||| No
ABC ||| 28.00 |||||| No
ABT ||| 22.00 ||||||| Yes

On a daily basis, the price (column B) will change, which will affect the Criteria column. I would like to be able to create something within VBA that will auto sort by Column C (a descending sort so all the Yes's are on top).
Seems pretty basic but my attempts thus far have been unsuccessful so hopefully I can get some pointers in the right direction.

Thanks!

 

[p45cal]

you don't say which version of Excel you're using so here's a pointer for Excel 2007 upwards:

Sub blah()
With ActiveWorkbook.Worksheets("Sheet1")
  .Sort.SortFields.Clear
  .Sort.SortFields.Add Key:=Range("C1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
  With .Sort
    .SetRange ActiveWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
End With
End Sub