Seems like there should also be a better way to reset consecutive data filters. 
 If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData


Sheets("Calculations").Select
Range("A1").Select
ActiveSheet.Paste

Either:
Sheets("Formulas").Range("A1:A9").Copy Destination:=Sheets("Calculations").Range("A1")
Or:
Sheets("Formulas").Range("A1:A9").Copy
Sheets("Calculations").Range("A1").PasteSpecial (xlPasteAll)