Can anyone help me write a code about coping data from many files and paste them to one file !?

Question

Hello ! 
As I said in title , I have alot files (e.g. 60 files) and I want to write a code to copy 5 columns (for examples) of special sheet of files and paste them in one file respectively. For perceive it I explained it more below .
Suppose one of my files is simplified as this : http://s000.tinyupload.com/?file_id=00699705919876414523
The name of  this file is 2006Oct and assume my excel files are like "2006Oct, 2006Nov,2006Dec,2007Jan ... 2010Dec". At first I should go to "my files" sheet of 2006Oct file and copy columns " A,B,C,D,E,F " that has "PerturbationNumber=1"
respectively and then paste these to a file that is output file and repeat this process for the other files ( 2006Nov and etc ) and paste data in output file sequentially. 
I appreciate and look foreward for any help in this issue.
Majid

Answer 1

Try code below
Sub CombineBooks()
Dim wb As Workbook
Dim sourceSht As Worksheet
Dim destSht As Worksheet
Set destSht = ThisWorkbook.Sheets(1)
destSht.Cells.Clear
FolderName = "C:\temp\test\"
file = Dir(FolderName & "*.xlsx")
firstSht = True
Do While file <> ""
Set wb = Workbooks.Open(Filename:=FolderName & file, ReadOnly:=True)
Set sourceSht = wb.Sheets(1)
With sourceSht
sourceLastRow = .Range("A" & Rows.Count).End(xlUp).Row
If .Cells.AutoFilter Then
.Cells.AutoFilter 'turn off autofilter
End If
.Cells.AutoFilter Field:=6, Criteria1:="1"
If firstSht = True Then
Set copyRange = .Range("A1", .Range("E" & sourceLastRow)).SpecialCells(xlCellTypeVisible)
destSht.Range("F1") = "FileName"
firstSht = False
destNewRow = 1
Else
Set copyRange = .Range("A2", .Range("E" & sourceLastRow)).SpecialCells(xlCellTypeVisible)
destNewRow = destSht.Range("A" & Rows.Count).End(xlUp).Row + 1
End If
copyRange.Copy Destination:=destSht.Range("A" & destNewRow)
LastRow = destSht.Range("A" & Rows.Count).End(xlUp).Row
If destNewRow = 1 Then
destSht.Range("F2:F" & LastRow) = file
Else
destSht.Range("F" & destNewRow & ":F" & LastRow) = file
End If
End With
wb.Close savechanges:=False
file = Dir()
Loop
End Sub
jdweng