>>435
Sub copipe()
Dim mybook As Variant, rs As Long
mybook = Dir("Z:\*.xlsx")
Do Until mybook = ""
mybook = Dir
Workbooks.Open mybook
With Workbooks("aaa.xlsm").Worksheets("sheet1")
rs = .Cells(.Cells.Rows.Count, "A").End(xlUp).Offset(1).Row
.Cells(rs, 1) = Workbooks(mybook).Worksheets("sheet1").Range("B2;j10")
End With
Workbooks(mybook).Close
Loop
End Sub

実際に動かしてないからエラーが出るかも知れないが多分大丈夫と思う
開く方のシート名は何でもいいけど全て同じにする必要がある