Es que aquí estás poniendo mal:
Código:
WordPaste wordApp, Worksheets("Cat1").Range("cat1")
WordPaste wordApp, Worksheets("Cat2").Range("cat2")
WordPaste wordApp, Worksheets("Cat3").Range("cat3")
Donde te marqué en rojo debes coloar el rango de celdas a copiar...
EDITO: En realidad está correcto si son tablas, pero yo lo he copiado usando tablas con esos nombres y funciona perfectamente, puedes intentar ejecutarlo paso a paso para ver qué sucede.