Macro to copy data where name matches destination workbook

I need a macro to do the following

1) To give option select a workbook workbook in directory c:\my documents
2) To compare the name on the source workbook (Source Vat Report.sample1) in Cell B1 to the name in Col B of the destination workbook and if they match to copy-see sheet "Table"
a) the value in Col B in line with V.A.T. On Sales to Col H on active sheet of the destination workbook
b) the value in Col B in line with V.A.T. On Purchases to Col G on active sheet of the destination workbook
c) the value in Col B in line with Sales To Internal to Col M on active sheet of the destination workbook


Your assistance in this regard is most appreciated