Macros script that loads data from other excel documents

Hello,
i have script that helps me to get all data from other excel documents (same kind) with different information and from many sheets in one place if there is something written in G column. the only bad thing is that i want to figure out why my date cells are being copied as general numbers and doesn't keep the date formatting? i kinda have the formatting for those column cells but it doesn't work. maybe there is something you could help me to fix? the date formatting is in G, H, I and some other fields, not all columns are defined here to have date formatting set.
i would be really grateful for your input.
here is the script:

Please Login or Register  to view this content.

anyone with a thought maybe?

Indeed it worked regarding copying date cells with correct formatting. now i will have to try to include also the statement that if there is something written in G cell then this row has to be copied.

hmm, but the only thing is that i need to collect all data from different excel documents and their sheets and append all data into one worksheet from all others having the same name of columns to represent the data. as well from this i am going to use pivot table to sort information as needed. to what it does now is just open the excel document where all my data is..which is not what i want it to do. i need to fully import data from one excel to another.

I have corrected a mistake I made before, as I neglected to use the r variable I mentioned.

If you want to get data from several sheets in another spreadsheet, and put them onto sheet in your active spreadsheet, try something like this:

Please Login or Register  to view this content.

how can i copy only that much rows as there are currently in the worksheet as there are people adding more and more data in this sheet + append data right after those first sheet filled in cells.