Visual Basic para Aplicaciones - IMPORTADO DATA

Tengo el siguiente código para que me importe data de una base de datos en Access a Excel...

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\Documents and Settings\roxy_rose\Desktop\JMC.mdb;DefaultDir=C:\Documents and Settings\roxy_rose\D" _
), Array("esktop;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")) _
, Destination:=Range("G18:K18"))
.CommandText = Array( _
"SELECT `Proyectos Pequeños`.Proyecto" & Chr(13) & "" & Chr(10) & "FROM `C:\Documents and Settings\roxy_rose\Desktop\JMC`.`Proyectos Pequeños` `Proyectos Pequeños`" _
)
.Name = "Query from MS Access Database_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

Este código me exporta solamente una columna, deseo poner esa data horizontalmente en Excel y a pesar q le indico el range.. Range("G18:K18"), me la pone vertical. ¿Hay alguna manera que pueda ponerla horizontal sin tener q buscar la data una por una? Espero me hallan entendido. Gracias de antemano.