over flow error

[Av8tordude]

I have this code that encounters an error as a result of trying to divide by zero. How can I avoid this error?

Range("P2") / WorksheetFunction.Subtotal(9, Range("U18:U18" & Range("U" & Rows.Count).End(xlUp).Row))

 

[mohadin]

Hi
try

 Range("a1") = ActiveSheet.Range("P2") / WorksheetFunction.Subtotal(9, Range("U18:U" & Rows.Count).End(xlUp).Rows)