Copy Data from Several Columns with Same Header into One Column

Ok, this is a tricky one. I have a spreadsheet that is working with assy's and subassy's. Column B, C, & D are titled "SubAssy", "Qty", "Notes" respectively. Coulmns E,F, & G are also called that. How can I write a code that would copy all the data in every column named Subassy and place in on another column on "Sheet2". I have found a code that show does it for the first 3 columns, but stops there:

Sheets("Sheet1").Select
subassy = WorksheetFunction.Match("Sub Assy", Rows("1:1"), 0)
qty = WorksheetFunction.Match("Qty Per", Rows("1:1"), 0)
note = WorksheetFunction.Match("Notes", Rows("1:1"), 0)

Sheets("Sheet1").Columns(subassy).Copy Destination:=Sheets("Sheet2").Range("A1")
Sheets("Sheet1").Columns(qty).Copy Destination:=Sheets("Sheet2").Range("B1")
Sheets("Sheet1").Columns(note).Copy Destination:=Sheets("Sheet2").Range("C1")



Anyone know how to get this to go to the next group of three comumns???

Sample file attached. The done in it already does some of the work, but I need to go to the second set of data.

This code copies an entire column if the column header is "Subassy"

Please Login or Register  to view this content.

If that makes it easier, then yes

I actually figured it out doing it another way, which is much more simple. Since each row has it's own unique data, I was able to use the following:

=TRIM(CONCATENATE(Breakdown!A2,Breakdown!E2,Breakdown!I2,Breakdown!M2,Breakdown!U2,Breakdown!AC2))

That did exactly what I was trying to do. Thanks to all who replied.

Tom