Mymacro creating pivot table somehow stops at this point:

ActiveSheet.PivotTables("PivotTable1").AddFields
RowFields:=Array("Category", _
"Natural AC", "NA Desc.", "Data"), PageFields:=Array("Project",
"Project Desc")

Anyone knows what may have gone wrong? It was working fine before. By the
way, I also have problem with pasting in my macro. I have a separate macro
where I used to copy and paste.
It was working fine. But one day it stopped pasting. Someone please help.
--
Sue