Macro that copies based on cell value

I don't think you are understanding me. I want to copy and paste a range of (formulas) into ALL of the five sheets that I have open. The formula that I have above works fine for doing that. When I'm done with that, I want to copy the result of the formulas (they are lookups) and paste special values back into the master tab, into a sheet called "2014". Each of the open workbooks has a date in A3. In the master workbook, in row 14, there are sequential dates. I want to copy the range that I copied into the open workbooks (the lookups) and copy this back into the master file "2014" tab, BASED on the dates in A3 of the open files. So, the macro will look at that row, match it (there will always be a match) and copy the range two cells below row 14. Make sense?

I've attached an example of what I want in a spreadsheet. The first sheet is one of the open files and the second tab is the tab in the master file that I want to copy to. Hope this helps.

I also noticed that the code in my first post that I used was incorrect. It's actually this.

Sub WBLoop()
    Dim wbk As Workbook
    Dim wb1 As Workbook
    Set wb1 = ThisWorkbook
        
    For Each wbk In Workbooks
        If wbk.Name <> ThisWorkbook.Name And wbk.Name <> "Personal.xls" Then
        wb1.Sheets("Lookup").Range("copyrange").Copy wbk.Sheets("Sheet1").Range("R7")
        End If
    Next wbk
     
End Sub

Helloooooo. Nobody can help with this one? It seems like a fairly easy code.

What? I don't have a macro!! I NEED a macro. Instructions again:

In the attached sheet, there is a tab called "Data sheet". This represents all of the open workbooks. In A3 there is a date, match this date to the dates in row 3, workbook and tab "2014masterfile" and copy the content starting in row 7 below the date in 2014 masterfile.