vba needed

[HorseRacing]

Want a Vba that allows user to highlight cells to form a table. Need exel to randomly assign '1' in empty cells in this table such that:
The sum of each row is equal to the value of the adjacent column after the table. AT THE SAME TIME.
The sum of each column of the table equals to the value of the adjacent row after the table.

 

[HorseRacing]

Hi Kappa.
This is exactly what I was looking for. Thank you very very much. Really appreciate all your time effort and talent!
Thanks again.

 

[Peter_SSs]

Hi Kappa.
This is exactly what I was looking for.

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.