I can't undo after using a macro that does paste special formulas. Following
is the macro:

Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End