Macro Trouble with Automating Calculations

I am having some trouble with this macro project; I've been working on and was looking for some assistance. The macro works on small groups of numbers but when I put it into the format which it will be entered it quit working.

It takes the total from B3 for Credit Cards through Rocky$ (it excludes cash deposits) and subtracts the amount from the amounts in column E2-E20.

It finds the highest amount in column E and subtracts the amount from B3 until B3 reaches 0. If there is any remaining total in the cell in column B it carries it over to subtract form the next highest amount in E until all the cells from B3-B9 are 0.

If anyone could help me find where I am going wrong I'd really appreciate it.

It seemed to work for me this last time I tried. I don't know why maybe just see if someone would check it over. I need to work on figuring out how to know what amounts were subtracted from what cell in column E. Anyone have any suggestions?