Вставить данные из таблицы sql в excel

[Lin]

Подскажите, пожалуйста, в чем загвоздка.При нажатии кнопки делаю выборку из таблицы на sql server и вставляю эти данные первый столбец листа excel.
Public Sub CommandButton1_Click()
Dim SQLStr As String
Dim d_date As Date, fin_date As Date
Dim tChart As Chart
Dim i As Integer
k = k + 1
d_date = DTPicker1.Value
fin_date = DateAdd("d", 1, d_date)
Worksheets(1).Activate
Worksheets(1).Rows("1:1000").Select
Selection.Delete Shift:=xlUp
Worksheets(1).Cells(1, k).Select
SQLStr = "select chnl_data from trm_data where (d_date between '" & d_date & "' and '" & fin_date & "') and (chnl_id =" & ListBox1.ListIndex + 1 & ")"
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={SQL Server};SERVER=SQLVMKPLANT;APP=Microsoft® Query;WSID=Varakin;UID=;PWD=;DATABASE=Enterprise;TranslationName=Yes;QueryLogFile=Yes;TrustedConnection=Yes" _
, Destination:=Worksheets(1).Cells(1, k))
.Sql = Array(SQLStr)
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery = True
'.SavePassword = True
.SaveData = True
End With
If Worksheets(1).Cells(1, k).Text = "" Then k = k - 1

End Sub

При повтрном нажатии кнопки данные еще раз выбираются и вставляются в следующий столбец.Но при этом сами числа и количесто строк в первом столбце непонятно каким образом изменяются. А второй столбец остается верным.