How to combine and transpose data from several workbooks into one

[sbv1986]

Hi all

I have over 15 files need to combine data in sheet(G001).range(D11:D25). I want all data range transpose and combine into summary workbook at sheet(source) with conditions:
1. Column(Ai) is the filename copied, i from 2
2. Data copied from all file transpose from range(D11:D25) to range(Bi:Pi)

How can I brown to choose folder and select source files to combine by VBA code?
thanks./.

 

[sbv1986]

For clear infomation:
All source files have sheet(G001).range(D11:D25) like

[TABLE="width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]....[/TD]
[TD]....[/TD]
[TD]...[/TD]
[TD]....[/TD]
[TD]....[/TD]
[/TR]
[TR]
[TD]Row11[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]123[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R12[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]456[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R13[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]789[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R14[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]123[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R15[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]456[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R16[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]789[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R17[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]789[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R18[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]456[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R19[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]123[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R20[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]123[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R21[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]147[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R22[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]852[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R23[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]963[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R24[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]369[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]R25[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]258[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

So I want after combine result like: summary workbook sheet(source)
[TABLE="width: 500"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[TD]F[/TD]
[TD]G[/TD]
[TD]H[/TD]
[TD]I[/TD]
[TD]J[/TD]
[TD]K[/TD]
[TD]L[/TD]
[TD]M[/TD]
[TD]N[/TD]
[TD]O[/TD]
[TD]P[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]file1[/TD]
[TD]123[/TD]
[TD]456[/TD]
[TD]789[/TD]
[TD]123[/TD]
[TD]456[/TD]
[TD]789[/TD]
[TD]789[/TD]
[TD]456[/TD]
[TD]123[/TD]
[TD]123[/TD]
[TD]147[/TD]
[TD]852[/TD]
[TD]963[/TD]
[TD]369[/TD]
[TD]258[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]file2[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD]x[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]file3[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD]y[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]..[/TD]
[TD]...[/TD]
[TD]..[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

please help me