You will need to change this to get exactly what you want, but this should give you the idea,
Sub openfiles()Path = ActiveWorkbook.Path
Aname = ActiveWorkbook.Name
nn = 2
filenm = Cells(3, 2)
Workbooks.Open Filename:=filenm
With Worksheets("sheet2")
inarr = Range(.Cells(1, 1), .Cells(1 + nn, 2))
End With
Workbooks(Aname).Activate
With Worksheets("Sheet1")
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
Range(.Cells(lastrow + 1, 1), .Cells(lastrow + 1 + nn, 2)) = inarr
End With
End Sub
I assume the filename is in B2 of the active sheet, it picks up cells from A1 to B(1+nn) and puts the date into next vacant row on sheet one of the original workbook