从一个单元格复制公式，将公式粘贴到另一个单元格中，计算并粘贴公式

Question

我在单元格c15中有一个公式，我需要复制整个列。但是，我想一次将公式复制一个单元格，计算该值，然后在该单元格上粘贴特殊值。

我想重复下面的代码，一次计算一个单元格。我不能重复，直到最后一个单元格为空，因为它们都是空的，除了单元格c15所以我不知道如何停止循环。

Sub Macro5()
    Range("c16:c3000").Formula = Range("c15").Formula
    Range("c16:c250").Calculate
    Range("c16:c250").Value = Range("c16:c250").Value
End Sub`