复制单元格值而不是公式

Question

我认为对于那些了解VBA宏的人来说，这是一个非常简单的解决方案。由于某种原因，最后添加.value会产生运行时错误。

请帮助，让我知道如何使用B列的复制方法，但不是复制原始inputs表中的公式，我只能复制该值。

Sub StatusPointBuild()
'
' StatusPointBuild Macro
'

'
    Dim y As Long

    ThisWorkbook.Sheets("Status Output").Cells.ClearContents
    Worksheets("Status Template").Range("B2:DW2").Copy Worksheets("Status Output").Range("B2:DW2")

    'only copy the number of times as the count in cell A1
    y = Sheets("inputs").Range("A1").Value
    Worksheets("Status Template").Range("B3:DW3").Copy Worksheets("Status Output").Range("B3:DW3").Resize(y)
    Range("B3:DW90").Select

    Do Until IsEmpty(ActiveCell)

        Worksheets("inputs").Range("B:B").Copy Worksheets("Status Output").Range("B:B")
        ActiveCell.Offset(1, 0).Select

    Loop

    Sheets("Status Output").Activate

End Sub

谢谢