复制后错过了VBA值

Question

我想将所有信息从一本带有计算的工作簿复制到另一本没有计算的工作簿。问题出现了，然后我保存了新文件，关闭并再次打开。缺少一些信息。这正是从原始文件的另一张表中引入作为参考的信息。 我可以在代码中添加些什么来避免此问题？不仅可以复制值，还可以复制所有内容吗？

Sub Doc()
  Dim ws As Worksheet
  Application.ScreenUpdating = False 
  Sheets(Array("Introduction_Page", "Observation_Overview", "ICS Analysis", "ICS Table")).Copy

   For Each ws In ActiveWorkbook.Worksheets
     ws.Cells.Copy
     ws.Cells.Hyperlinks.Delete
     Application.CutCopyMode = False
     Cells(1, 1).Select
     ws.Activate
    Next ws

  Cells(1, 1).Select                       
  Application.ScreenUpdating = True
End Sub