Добавьте следующую строку перед строкой, в которую вы вставляете результаты:
$TRgWkBk.worksheets.item(1).range("A1").Select
Вам необходимо выбрать ячейку перед вставкой в содержимое.
И рассмотреть возможность снятия полуколоны.Вы используете их только в том случае, если вы помещаете более одной команды в одну строку, а здесь вы этого не делаете.