Excel / VBA按列名从所有选项卡按顺序合并列

我需要从每个Excel工作簿选项卡合并某些列为一个。

我有52个选项卡，每个具有不同数量的列，但我需要的6列都具有相同的标题。 我需要提取每个这些列，并按顺序放置它们，所以52个标签看起来就像这样

但如果我想从每个选项卡只select“Column1”，并像这样顺序显示

我将如何做到这一点？ 我已经能够find一些例子，但没有一个适合这种情况，到目前为止，我一直无法自己拼凑一个解决scheme。 任何帮助将非常感激！

编辑

这是我目前有，但是这也是打印头

Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate For J = 2 To Sheets.Count Sheets(J).Activate Dim rng1 As Range Set rng1 = Range(Range("A1:Z1").Find("Customer"), Range("A1:Z1").Find("Customer").End(xlDown)) rng1.Select rng1.CurrentRegion.Select 'Selection.CurrentRegion.Select rng1.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select rng1.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next Sheets(1).Activate End Sub