макрос для извлечения определенного столбца из нескольких листов на одном листе

Я хотел бы скопировать некоторый конкретный столбец Like (Name, Dob, Dod, адрес, зарплата) из нескольких листов в одном. Я написал ниже, мой код работает для всех колонок, но мне нужен какой-то конкретный столбец в «комбинированном листе»,

Sub CombineSheet() Dim J As Integer On Error Resume Next Sheets(1).Select Sheets(Comb_Sheet).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next Sheets(1).Select Sheets(Comb_Sheet).Name = "Combined" Columns("A:Z").Select Selection.EntireColumn.AutoFit Application.ScreenUpdating = False End Sub 

Давайте будем гением компьютера.