custom sort list order in vba

Guys,

I need to sort the data started at range (A9:H9) based on the data at column B9 but in a form of custom list order based on my list such as "221","143","224","9955","6565".

i have tried the below formula and it works fine but it sorts in ascending order..

Dim lastrow As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Range("A9:H" & lastrow).sort Key1:=Range("B9:B" & lastrow), _
   Order1:=xlAscending, Header:=xlNo

Please i need your help guys to show me what's the code in order to sort my data using custom list.

Thank you..