At first, we don't know how many files are open, so ask the user to specify them.
Since there is no information to paste, the value will be pasted in the same position on the active sheet of the specified file.
VBA Code:
Sub Sample()
Dim Twb As Workbook, Dws As Worksheet
Dim n, i As Long
Dim buf As String
Dim x()
Set Dws = Sheets("Data")
For i = 1 To Workbooks.Count
ReDim Preserve x(i - 1)
x(i - 1) = Workbooks(i).Name
buf = buf & i & ". " & Workbooks(i).Name & vbCrLf
Next
n = Application.InputBox(Prompt:="Number?" & vbCrLf & vbCrLf & buf, Type:=1)
If n > UBound(x) + 1 Or n = "False" Then Exit Sub
Set Twb = Workbooks(x(n - 1))
With Twb.ActiveSheet
.Range("B1").Value = Dws.Range("B1").Value
.Range("A4:C25").Value = Dws.Range("A4:C25").Value
End With
MsgBox "Done"
End Sub