Here is my code - I'm getting an error at the **. I'm trying to paste the
result of my formula as a value.

Also, I don't like the RC cell references. I tried to change them manually
but then the macro doesn't run.

I don't do much visual basic. I record a macro and then TRY to edit it.

Thanks for any help.

ActiveSheet.Unprotect
Range("A24").Select
Selection.Copy
Range("A25").Select
ActiveSheet.Paste
Range("C24:G24").Select
Application.CutCopyMode = False
Selection.Copy
Range("C25").Select
ActiveSheet.Paste
Range("h25").Select
ActiveCell = "0"
Range("i25").Select
ActiveCell = "0"
Range("J24").Select
Application.CutCopyMode = False
Selection.Copy
Range("M22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("N22").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=rc[-1]*0.2"
Range("N22").Select
Application.CutCopyMode = False
Selection.Copy
Range("J25").Select
**Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Protect
End Sub