Search column "header" an print the entire column in another worksheet

[CassioGodinho]

Hi

I have some logs with alot of columns (range A5:CQ:5), I need to read this range, and if it have some value print the entire column on another worksheet.
e.g.

File |	Shot | Line Name |Point Number | etc until CQ:5
1        20          1             50

Let's say I only need the columns "File" and "Point Number" to be printed on another worksheet named "Result", my idea was something like this

Sub SelectColumns()

Dim Column As Range

Sheets.Add.Name = "Result"

For Each Column In Range("A5:CQ5")
    If Column.Value = "File" Or Column.Value = "Point Number" Then
    Sheets.Select ("Result")
    # print columns on new worksheet
    End If
    
Next


End Sub

[mrice]

Try this

Sub SelectColumns()
Dim Column As Range
Dim SourceSheet As Worksheet
Set SourceSheet = ActiveSheet
Sheets.Add.Name = "Result"
SourceSheet.Activate
For Each Column In Range("A5:CQ5")
    If Column.Value = "File" Or Column.Value = "Point Number" Then
        Column.EntireColumn.Copy Destination:=Sheets("Select").Cells(1, Columns.Count).End(xlToLeft).Offset(1, 0)
    End If
Next
End Sub

[CassioGodinho]

Thanks for the reply.
If I run this code I get runtime error 9.
Dont know if its right but I changed "Destination:=Sheets("Select")" to "Destination:=Sheets("Result")" and now I get runtime error 1004

[mrice]

You made a correct change - sorry for my mistake. When you get the error, which line is highlighted in yellow when you hit the debug button?

[CassioGodinho]

The line is

Column.EntireColumn.Copy Destination:=Sheets("Result").Cells(1, Columns.Count).End(xlToLeft).Offset(1, 0)

[mrice]

OK - I can see the problem.

Please replace with

Column.EntireColumn.Copy Destination:=Sheets("Result").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)

[CassioGodinho]

Thanks man, I just made it work using a less elegant aproach.

Dim Count As Integer
Count = 1
For each
        Column.EntireColumn.Copy Destination:=Sheets("Result").Cells(1, Count)
        Count = Count + 1
next

Thats ugly code but aparently worked haha