Open a file and copy data into multiple files

Hi,

I have a file (Source) which has 3 columns of importance :- Codes, Revenue and Expenses.

For each code, there exists a file on a drive (with some characters before and after) e.g:
Code = 3034901; File name = 2010_Q2_3034901.xls

There are about 500 codes and accordingly 500 files (There could be a mismatch but we can handle that exception later on as we proceed)

The idea is to open the Source file, parse through each code, open the corresponding file, check whether a particular (B16) within the opened file is not empty, and if not, update (Copy) two cells (F31 and B48) with corresponding data from the Revenue and expenses column of the source file. Do this until all the codes of the source file are parsed through.

I want to write a macro for the same and know nothing about macros. All help will be appreciated.

Thanks

For each code there is only one file in the directory but that file could have either of the following names:

2010q3_<code>.xls
2010q3_<code>s.xls
2010q3_<code>Contr.xls
2010q3_<code>sContr.xls