Hi there,
Your issue is in one row of Your code:
If Not Intersect(Target, Range("R10")) Is Nothing Then
If You want to run the code in R10 has changed, change row above to:
If Intersect(Target, Range("R10")) Is Nothing Then
Hope it helps