엑셀 매크로 질문이요.. 도와주세요ㅜㅜ

[윤현성]

 

제가 엑셀 매크로를 이용해서 파일을 정리하고 싶은데요..
이 부분에서 정말 모르겠네요..

예를 들면..
1000개의 엑셀 파일이 있습니다. 그리고 각각의 파일은 한개의 열로만 구성되어져있습니다.
그래서 파일들을 한 개의 엑셀시트에 1000개의 열을 가지는 파일로 만들고 싶습니다.

제가 알아본 매크로 코드는...

Sub 합치기()
Dim Files As Variant
Dim fileX As Variant
Dim sht As Worksheet
Dim wb As Workbook
Dim rngTarget As Range

Files = Application.GetOpenFilename(filefilter:="total Files(*.*),*.*", MultiSelect:=True)
Set sht = Worksheets("sheet1")

For Each fileX In Files

Set wb = Workbooks.Open(fileX)
Set rngTarget = sht.Range("a65536").End(xlUp).Offset(1, 0)

wb.Worksheets(1).UsedRange.Copy rngTarget

Application.CutCopyMode = False
wb.Close savechanges:=False

Next fileX

End Sub

인데요... 정말 완벽한데.. 각각의 파일의 데이타가.. 옆으로 옆으로 열로 되어야 되는데...
자꾸 밑으로 밑으로 행으로 되어지네요...
어떤 명령어만 추가하면.. 될꺼 같은데...
고수님 도와주세요ㅎㅎ