veknüpfen und abfragen oracledatenbank mit vba

Hallo
Ich hab ein Problem und zwar habe ich über vba in Excel mittels odbc eine Verbindung zu Datenbank(Oracle) hergestellt und eine Abfrage gestartet. Das Ergebnis wird in einer Zelle in Excel ausgegeben, das Problem ist aber jetzt das wenn ich den Makro noch mal starte, wird das alte Ergebnis nach rechts geschoben wird und das neue in die Zielzelle und nicht einfach überschrieben.

Hier ist der code den ich verwendet habe
Sub test()
Dim at As QueryTable
sqlstring = "select sum (laenge)/1000 from TWLD.fw_altg"
connstring = _
"ODBC;DSN=aaa;UID=aaa;PWD=aaaa;SERVER=aaa;"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Destination:=Range("B1"), Sql:=sqlstring)
.Refresh
End With
End Sub

danke