I can only think of a worksheet change event.
right click on sheet tabview codeinsert thissave
will ONLY work for a change made in cell A2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$A$2" Then Exit Sub
If Target.Offset(-1) Target Then Target.Offset (-1)
End Sub

"Lee" wrote in message
...
I know this should be simple but I can't make it work.

If cell (A1) is greater cell (A2), place result in (A2)

Thank You

Lee