help with macro

[Paul]

I would appreciate someone helping me with this.

I want to run this macro each time cell R1C8 exceeds 50.
I think I need a nested loop setup, but cannot make one
work.

}

Sub reset()
Application.Goto Reference:="R4C5"
Selection.Copy
Application.Goto Reference:="R3C5"
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

 

[Don Guillett]

try
if cells(1,8)>50 then cells(3,5).value=cells(4,5).value