Assign value with DOWHILE (variant of TRANSPORT METHOD)

I have a table with 15 rows and 10 columns (A1:J15)

Row 16 sums the values in each column (1:15)
Column K sums the values in each row (A:J)

Column L has values assigned
Column M ranks thes values (#1 for highest, moving downwards)

what i need to do is to get a VBA
to assing a value (1)
for each column
based on this:

as long as the column total (row 16) isn't higher (>) that 7
search for the highest ranked row
and assing a value of 1
as long as the row total (column K) is lower (<) that the values in column L
then search for the next higher ranked row

this could be seen as a variant of a transport method
where row 16 would be the assigned trucks (up to 7)
and column L is the minimum amount of trips
of course, if there is a way to optimize this
i accept sugestions