Вопро по диапазону.

Добрый день. А не подскажет ли кто:
Если мне в модуле Implement листа  нужно перед формированием отчета добавить новый лист и диапазон (Справочник из другого источника, например DBF-ка). Делаю это посредством запроса:

With ActiveWorkbook.ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
   "ODBC;DSN=Таблицы Visual FoxPro;UID=;PWD=;SourceDB=\\Server\Path\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Delet" _
   ), Array("ed=Yes;")), Destination:=ActiveWorkbook.ActiveSheet.Range("A1"))
    .CommandText = Array( _
    "SELECT * from Sprav1" _
    )
    .Name = "RGN_sprav1"
    .FieldNames = False 
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
End With

Данные вставляются, но диапазон получается на уровне листа, а можно ли вставить на уровне книги? (так-же как листы выгружаемые самим TCS)