VBA for to - Error 1004

The macro stops on:

               Range("service_area").Value = service(countC)

I did change the update procedure to Application.Calculate