FormulaCell is undeclared. Add a declaration for it

Dim FormulaCell As Range