VBA - #DIV/0! Error After Copy and Paste

[foolishpiano]

Hello everyone! I'm trying to copy the value from a formula and paste the result as a value only, but when the code is run I receive a #DIV/0! error. The code I have is:

Range("S4").Activate
      Selection.Formula = "=average(O15:O500)"
Range("S5").Select
      ActiveCell.FormulaR1C1 = "=DATEDIF(R[-1]C,TODAY(),""d"")"
Range("S5").Select
      Selection.Copy
           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False

Any ideas on how to fix the error, or why it's occurring?

Thank you all!

 

[Special-K99]

The only division related function in your code is Average.
The entire range O15:O500 is zero or text. That would produce a DIV/0 error