You would have to use macro VBA code similar to this:

Sub Macro1()
Windows("doc2_filename").Activate
Sheets("sheet1").Range("A1:F136").Copy
Windows("doc1_filename").Activate
Sheets("sheet1").Range("a1").PasteSpecial Paste:=xlPasteValues
Sheets("sheet1").Range("a1").PasteSpecial Paste:=xlPasteFormats
Range("A1").Select
End Sub