Sheet to Sheet Range To Range Copy (VBA)

[cenderus]

Hi i need help abouth my problem

i have a main.xls file and two data file dat1.xls and dat2.xls

main named file have ar - br- cr- dr- er -fr sheets

dat1 named file have ar-br-cr sheets

dat2 named file have dr-er-fr sheets

and all this files data source is

colomn source a - fd
row source 29-4000

i want to make two commandbutton to main file first for dat1 second for dat2 file and i need a code to use at this buttons to make

when dat1 and dat2 close

main file user when click first button

copy dat1 file ar sheet colomn source a - fd row source 29-4000 cells to main file ar sheet colomn source a - fd row source 29-4000 cells

copy dat1 file br sheet colomn source a - fd row source 29-4000 cells to main file br sheet colomn source a - fd row source 29-4000 cells

copy dat1 file cr sheet colomn source a - fd row source 29-4000 cells to main file cr sheet colomn source a - fd row source 29-4000 cells

if this help come i can use it at the second button myself

sheet to sheet range to range copy when main file open but the data files closed

thank u for help ,

[cenderus]

my sample dat file at attachment sorry but i dont have winzip