Record Value of Changing Forumla?

Thanks for the response...unfortunately still not working:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("R10")) Is Nothing Then
        Application.EnableEvents = False
        Range("V" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("R10").Value
        Application.EnableEvents = True
    End If
End Sub