VBA For PasteValues?

I have a bunch of formulas in excel that are referencing each other and I need a code that will the paste values automatically.

I'm using

Sub CopyRange()
Sheet1.Range("AK2:AK1000").Copy
Sheet1.Range("AL2:AL1000").PasteSpecial xlPasteValues
End Sub

but it doesn't seem to be working. This is my first time using VBA.