Sort an excel sheet with specific conditions (vba)

Question

Here is my problem, I have those data on my Sheet1

       A      B        C
   1 Name   Account  Amount 
   2 John   HSBC     -20000
   3 Ashley JPM      140000