如何仅从单元格包含公式的其他工作表中复制值

Question

我需要有关如何使用公式从其他工作表复制数据的建议，但仅需要在我的主文件中输入值。我无法将使用公式计算的其他工作表中的数据传输到主文件中。

Sub Button1_Click()

Dim data As Workbook

Set data = Workbooks.Open("File at the dsetination")

Application.ScreenUpdating = False

ThisWorkbook.Activate

Worksheets("Sheet1").Range("A2:D1048576").formula = data.Worksheets("BECM").Range("A3:D1048576").formula
Worksheets("Sheet1").Range("E2:E1048576").PasteSpecial(xlPasteValues) = data.Worksheets("BECM").Range("H3:H1048576").Copy

ActiveWorkbook.Save
data.Close

End Sub