如何在工作表上保留宏中的公式

Question

我在VBA中有下一个代码：

Do While ZSDCM.Cells(i, 1).Value <> ""
  ZSDCM.Cells(i, 60).Value = Application.IfError(Application.Index(z16, Application.Match(ZSDCM.Cells(i, 35).Value, SalesOrder, False), 1), "")
 i = i + 1
Loop

但在运行此子程序后，受影响的单元格仅显示值而不是公式，并且我希望在执行宏时，我的公式在对应单元格中可见。