VBA to Copy data and format transactions for QuickBooks import

[jtbsu]

I am currently trying to take an excel file that has purchase transactions as shown below and convert them into something that will import into an accounting software. I know it would be easier for that person gathering the information to input it the information directly into the accounting software but unfortunately for control purposes I was told that is not allowed. So I have to duplicate the work already being done and I would like to have the work from the person gathering the information to just import into the accounting software. Any help is greatly appreciated. I have been trying to search and build such a macro with absolutely no luck. Thank you.
[TABLE="width: 1152"]
<colgroup><col><col><col><col><col><col><col><col><col><col></colgroup><tbody>[TR]
[TD][TABLE="class: grid, width: 100, align: left"]
<tbody>[TR]
[TD]Date[/TD]
[TD]Check #[/TD]
[TD]Vendor[/TD]
[TD]Notes[/TD]
[TD]Account Number[/TD]
[TD]Amount[/TD]
[TD]Total Pmt[/TD]
[TD]Location[/TD]
[TD]Trans #[/TD]
[/TR]
[TR]
[TD]12/1/13[/TD]
[TD]1000[/TD]
[TD]Staples[/TD]
[TD]Supplies[/TD]
[TD]6120[/TD]
[TD]100.00[/TD]
[TD]100.00[/TD]
[TD]North[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]12/1/13[/TD]
[TD]EFT[/TD]
[TD]Office Max[/TD]
[TD]Supplies[/TD]
[TD]6120[/TD]
[TD]200.00[/TD]
[TD]240.00[/TD]
[TD]South[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]******* Supplies[/TD]
[TD]6125[/TD]
[TD]40.00[/TD]
[TD][/TD]
[TD]General[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]12/1/13[/TD]
[TD]EFT[/TD]
[TD]Post office[/TD]
[TD]postage[/TD]
[TD]7250[/TD]
[TD]150.00[/TD]
[TD]150.00[/TD]
[TD]General[/TD]
[TD]3[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

After the conversion the information must look like this with 1111 being the checking account that was used to pay for the item(s). So 1 purchase from office max may have to be split between 2 expense accounts with the sum hitting the bank.
[TABLE="class: grid, width: 100, align: left"]
<tbody>[TR]
[TD][/TD]
[TD]Blank[/TD]
[TD]Transaction Type[/TD]
[TD]Date[/TD]
[TD]Account Number[/TD]
[TD]Name[/TD]
[TD]Amount[/TD]
[TD]Location[/TD]
[TD]Check #[/TD]
[TD]Notes[/TD]
[/TR]
[TR]
[TD]TRNS[/TD]
[TD][/TD]
[TD]Check[/TD]
[TD]12/1/13[/TD]
[TD]1111[/TD]
[TD]Staples[/TD]
[TD]-100.00[/TD]
[TD][/TD]
[TD]1000[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]SPL[/TD]
[TD][/TD]
[TD]Check[/TD]
[TD]12/1/13[/TD]
[TD]6120[/TD]
[TD]Staples[/TD]
[TD]100.00[/TD]
[TD]North[/TD]
[TD]1000[/TD]
[TD]Supplies[/TD]
[/TR]
[TR]
[TD]ENDTRNS[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]TRNS[/TD]
[TD][/TD]
[TD]Check[/TD]
[TD]12/1/13[/TD]
[TD]1111[/TD]
[TD]Office Max[/TD]
[TD]-240.00[/TD]
[TD][/TD]
[TD]EFT[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]SPL[/TD]
[TD][/TD]
[TD]Check[/TD]
[TD]12/1/13[/TD]
[TD]6120[/TD]
[TD][/TD]
[TD]200.00[/TD]
[TD]South[/TD]
[TD]EFT[/TD]
[TD]Supplies[/TD]
[/TR]
[TR]
[TD]SPL[/TD]
[TD][/TD]
[TD]Check[/TD]
[TD]12/1/13[/TD]
[TD]6125[/TD]
[TD][/TD]
[TD]40.00[/TD]
[TD]General[/TD]
[TD]EFT[/TD]
[TD]******* Supplies[/TD]
[/TR]
[TR]
[TD]ENDTRNS[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]TRNS[/TD]
[TD][/TD]
[TD]Check[/TD]
[TD]12/1/13[/TD]
[TD]1111[/TD]
[TD]Post Office[/TD]
[TD]-150.00[/TD]
[TD][/TD]
[TD]EFT[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]SPL[/TD]
[TD][/TD]
[TD]Check[/TD]
[TD]12/1/13[/TD]
[TD]7250[/TD]
[TD][/TD]
[TD]150.00[/TD]
[TD]General[/TD]
[TD]EFT[/TD]
[TD]Postage[/TD]
[/TR]
[TR]
[TD]ENDTRNS[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]