To get your script to work correctly, here's what I did:
Named the main portal on the Art Dept tab "ArtDeptPortal"
Changed the New Script around to read the following (sorry, I'm typing out so I won't use FMP formatting):
Set Variable $designer = Designers::Name
Set Variable $line = Get ( ActivePortalRowNumber )
Go to Object ["ArtDeptPortal"]
Go to Portal line [select; no dialog ; $line ]
Set field [Art Dept 2::DesignerName; $designer]
I was just looking at your file and I don't really understand what you are trying to do.