When you look at my code try to follow what it is doing.
As for sheet names. If in the actual workbook you have a sheet name other that "Sheet1" then change it to the actual sheet name.
That goes for both Vendor and text data workbook

I have skype. If necessary..