Sub Combiner_WBK()
'miha - 050218
Dim p As Range, Filename$, j
Path = ThisWorkbook.Path & "\"
j = 1
Filename = Dir(Path & "*.xlsx")
Application.ScreenUpdating = False
Do While Filename <> ""
Set wb = Workbooks.Open(Filename:=Path & Filename, ReadOnly:=True)
Set p = Intersect(wb.Sheets(1).[A1].EntireColumn, wb.Sheets(1).UsedRange)
p.Copy ThisWorkbook.Sheets(1).Cells(1, j)
j = j + 1
Set p = Nothing
wb.Close False
Filename = Dir()
Loop
End Sub