Macro That Looks / Copy And Paste Info In New Workbook

What the Macro has to do is this.

It takes an specific word from a certain number of files that you can choose from an add file window.
Then when you choose those files the macro starts to run every file and look for an specific word, in this case is "ROFO March 2013".

When it finds it, The macro creates a new workbook( You create the name of that workbook y the first place of the macro, when you choose the files that you want to look for that word).

So, When the macro finds the word ROFO March 2013, it copys all the columns that has that name, and keeps looking until the file ends.

And paste all that info in the new file, A consolidate File.

I have change all the names of variables of the macro so you can understand it.

Code:
Sub copy_data(ByVal Origin_File_route As String, ByVal destiny file As String)
Dim Origin_File As String, RsBusq As Range, ROFO As String
Dim Rango As Range, Fila As Long, lastrow as Long
origin_file = Dir(origin_file_route)

[Code] .......