VBA sort

[scoha]

I have a dynamic range, "WI_451" which I want to sort from the Key1 being "B9".

I have tried to get this to work but it doesnt carryout the sort:

'Sorts "WI" table with new staff listing
    Sheets("WI").Range("WI_451").Sort Key1:=Range("B9"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Any ideas on how I can get a dynamic range to sort?