Maybe:


Range(Cells(StartRow, 1), Cells(EndRow, EndFormulaCol)).Copy
        Range(Cells(StartRow, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode=False