R- триггера в макросе явно избыточны
Программа не большая ,на конечный результат не влияет,переделывать лень,уже сыр упаковывают.