How to transpose data with VBA

I have an excel sheet with columns of data that then needs to be transposed into rows, however each column is a different length and there are loads of columns so to do each one individually takes too long. I have managed to get the keywords over and walking through the macro it brings the top 2 titles over but the pulls down the wrong data.

Original columns look like this, with various numbers of keywords

campaign1
adgroup1
keyword1
keyword2
keyword3
keyword4
keyword5

this needs to move to the spreadsheet to look like this

campaign1 adgroup1 keyword1
campaign1 adgroup1 keyword2
campaign1 adgroup1 keyword3 etc

I've attached a document. the original data is entered on the first tab "Campaign Structure"

The button to populate the other sheets (and the macro I'm having issues with) is on the tab "DS Kwds". The keywords are being pulled but the campaign and adgroup data isn't.

thanks in advance for help

Post does not comply with Forum Rule #8

Don't cross-post without a link. Cross-posting is when you post the same question in other forums on the web. You'll find people are disinclined to respond to cross-posts because they may be wasting their time solving a problem that has been solved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post. Expect cross-posts without a link to be closed.

X-Post

This is also posted here

http://www.mrexcel.com/forum/showthr...77#post2440877

I shall update posts at both if I get a solution