Macro that copies based on cell value

I have 5 opened files. I have copied into those files a set of formulas from my master sheet (with the macro). In A3 of ALL the open files, there is a date (ex. Date: 1/4/2014) Based on that date I want to copy the result of what I copied into the files (below is the code that I used to copy into the open files, maybe I could add something to create a named range of the resulting paste) back into the master sheet into a tab called 2014 and into a cell two cells below the cell in row 12 with the MATCHING date. Please help!!

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("Sheet1").Range("A1:C5").Copy wbk.Sheets("Sheet1").Range("A1")
        End If
    Next wbk
     
End Sub