Good for you.
But personally I don't want to Copy and Paste if not required.
Could you try this and let us know how it worked, or not if it didn't.
Thanks for your cooperation.
Sub Copy_To_New_Book_B()
Dim i As Long, lr As Long, lc As Long
Application.ScreenUpdating = False
Sheets(Array("In", "Out")).Copy '<---- Check sheet names
For i = 1 To ActiveWorkbook.Worksheets.Count
With Sheets(i)
lr = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
lc = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
.Range(.Cells(1, 1), .Cells(lr, lc)).Value = .Range(.Cells(1, 1), .Cells(lr, lc)).Value
End With
Next i
Application.ScreenUpdating = True
End Sub