Programming VBA

Solve option 5 from file "Zadaniya k tipovym". To solve all problems is not mandatory, but is necessary to solve at least 20 problems.
Term to the third of October, strictly. The sample solution is in the second file.
The price and lead time strict, bargaining.
The output file(