vba select best sum combination from a column which exceeds a value by the lowest amount?

[murtaep]

I have a column of numbers eg:
Colum B
B1 523
B2 438
B3 956
B4 673
B5 45
B6 55
B7 911


How do i write code (using vba) to Sum of all the possible combinations of these numbers in order to reach the value of a cell (A1) and gives me the smallest excess?
For example A1 is 1100
So result should be =SUM(O25,O28)
=SUM(673,438) 1111
Remainder
remainder 11

All I really need is something that will sum all the possible comlumns and i will be able to complete the rest myself.​