Optimising a macro - GET Project NAME v1.0

Can anyone provide ideas to how I can further optimise this macro in KM? most importantly minimising the number of separate AppleScript executions.