VBA Code to Transfer data into Mailing Labels: Or, help me keep my job long enough to find a replacement!

[NotInMyJobDesc]

So my boss has decided that in lieu of doing the job I was hired for, I'm going to be gathering literally 10s of thousands of addresses and inserting them into mailing labels in a Word doc.

Not in my job description. I don't know how to use Excel beyond the basics. So... extremely frustrated and angry don't really come close to describing what I feel right now. After taking a night to think it over, I'm not walking off the job today but I'm also not going to transpose addresses line by line by hand. It feels like I'm being told to move a ton of rocks by hand while a dump truck sits idle nearby.

So I was wondering if someone could give me a hand. (Don't worry, one time request--I have new interviews lined up and I'll be out in a month)

I have a massive list of data that's broken up into 7 rows of information. Like this:

Contact Name
Phone No.
Email Address
Line 1 of Address
Line 2 of Address
Useless Data
Useless Data

Contact Name
Etc...

So seven rows of data broken by a single space followed by 7 more lines of data repeated thousands of times. I need to take lines 1, 4, and 5, and insert them into the same column so that Excel can automatically generate mailing labels.

Is there some trick to this? I was told to use VBA. I'm not a coder and I'm not professionally trained in Excel. Could someone give me a hand? Anything at all. I would be greatly appreciative.

I HATE asking for help like this, but I'm not spending 40 hours a week gathering data for the rest of the summer. I will quit my job today before that, which I really, really don't want to do.

Thank you in advance for saving a man drowning in data!

 

[Norie]

Can't you use Word mail merge with the Excel workbook as the data source?

 

[NotInMyJobDesc]

Can't you use Word mail merge with the Excel workbook as the data source?

I tried that first. I tried mail merge, 30 labels per page, and using an Excel sheet full of data. I get a Word Doc that says <<Next Record>> <<Next Record>> repeated. Not sure where I'm going wrong here.

 

[SpillerBD]

If the data is as consistent as indicated. ALWAYS 7 rows per, then just add columns for the appropriate fields and grab the appropriate relative cell by formula.
b2=a3
c2=a4
d2=a5....
Then Copy, Paste Special Values. and filter to the non-"Contact-Name" rows so you can delete that data.