Error 13 en tiempo de ejecución: No coinciden los tipos

Estoy trabajando con un macro para una ficha y cuando quiero agrupar los ítems según el nombre agrupa hasta una cierta cantidad y luego sale ese error, ¿hay manera de arreglarlo? El error salta en la línea

 stringb = Cells(cont + 1, celdasum)

Adjunto el archivo para la programación completa, es el Módulo 5

https://drive.google.com/open?id=1FvK_yetY0WTwvQ2FhLHpGbmEhpYxGk9D