Hi,
Change all of your pastspecials
Code:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
to
Code:
Selection.PasteSpecial Paste:=xlPasteAll
If you use "PasteValue" it will just place the value and not the formula.