Исходный текст

'==================================================== 
'Очистить таблицу выборки и наполнить ее динамически.
'Текст обработчика размещается в скрипте выборки.

Sub Query_AfterExecute(Sheet, Query, Obj)
        'Удалить все данные из таблицы.
        Sheet.RemoveAll
        'После вызова метода остается пустая таблица с нулевым 
        'количеством строк и столбцов. Теперь можно ее наполнить
        'чем угодно, например, объектами с Рабочего стола.
        
        For Each obj In ThisApplication.Desktop.Objects 
                Sheet.add obj
        Next
End Sub
'====================================================