i build a macro .
i want to copy the same sheet (7.07) from some workbooks (book1 , book11 , book111) to one large workbook (big).
i try to do this , but i get a macro that copy the sheets to new workbooks ...
what can i do to fix this problem ??


Sub teset()
Dim myDir As String, fn As String, a(), i As Integer, ws As Worksheet, LastR As Range
myDir = "C:\test\" '<- change to suite
fn = Dir(myDir & "book1*.xls")
Do While fn <> ""

With Workbooks.Open(myDir & fn)
.Sheets("7.07").Copy

'With Workbooks.Open(myDir & fn)
' .Sheets(4.07).Copy after:=ThisWorkbook.Sheets(1)
With ThisWorkbook.Sheets(1)
Set LastR = .Range("b5")
If Not IsEmpty(LastR) Then _
Set LastR = .Range("a" & Rows.Count).End(xlUp).Offset(1)
End With
With .Sheets(2).UsedRange
LastR.Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
.Close False
End With
fn = Dir()
Loop
'With ThisWorkbook
' ReDim a(1 To .Sheets.Count)
' For Each ws In Sheets
' i = i + 1: a(i) = ws.Name
' Next
' SortA a, 2, UBound(a)
'For Each e In a
' .Sheets(2).Move after:=.Sheets(.Sheets.Count)
' Next
' End With
End Sub