Import Certain Cells From A Workbook

I would require VB help as follows:

I will assume that I have a workbook called "Target.xls" and another workbook called "Source.xls"

1. "Target.xls" workbook has sheets called (S1),(S2),(S3) and (S4), in sheet (S1) there is a button called {Import Data}

2. "Source.xls" workbook has sheets called (S1),(S2),(S3) and (S4), those sheets are identical with the same sheets of the workbook "target.xls".

3. When you press the button {Import Data} in the "Target.xls" workbook the following actions shall happen:

1. A dialog box will open and ask you about the workbook which you want to import data from.

2. You will select a workbook from the list of the hard disk or any drive, supposing you selected "Source.xls" workbook

3. You will prompt a confirmation box to confirm the import action.

4. When you press OK then certain cells (same cells always, e.g. Range a1:c7) from the sheets called (S1),(S2),(S3) & (S4) from the workbook "Source.xls" will be copied (not linked) to the same cells in the workbook "Target.xls".