VB Code to reorganize data

Hello:

Please refer to attached file.
I have data as shown in Sheet1.
I need BN Code to transpose these data as shown in Sheet2.
(Here i am showing for 2 Vendors, but need to go thru all data).
Just to let you know that in Sheet2,
Column B will be todays date,
Column A will be "YES"
Column C will be "Bill"
Colunn D will be Bill#
Colunn E will be Name of Vendor
Column F will be "Account Payable"
Column L will be Amount.

Let me know if you have any questions.
Thanks.
Riz