Hello,

I am trying to write what I thought would be a simple macro but I am
having some difficulty in implementing it.

In essensence I have 3 cells.

A1 is a formula
A2 Needs to convert the value from A1 into its Value (Paste Special -
Value) function
A3 Needs to equal A2 after A2 has been converted to a value.

When I record this macro, I cannot seem to get A2 to stay at the
pasted value and I get lengthy iterations.(I am using the macro to
break a circular reference but still keep some fluidness)

Below is the macro I am having difficulties with. At this point, I
would like this to run only once per execution, however I may add a
loop later on.  Any suggestions would be greatly appreciated. Thank
you for your time.

Sub N2T()
   Range("B81").Select
   ActiveCell.FormulaR1C1 = "=R[-1]C"
   Range("B81").Select
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
       :=False, Transpose:=False
   Application.CutCopyMode = False
   Range("B85").Select
   ActiveCell.FormulaR1C1 = "=R[-4]C"
   Range("B82").Select
End Sub