Vba ile:Kolonda olan verileri satira nasıl aktarmalı?

[Maksim]

Herkese merhaba.
Arkadaşlar Sql den A1 kolonuna veri geliyor.
(Vba kodu aşağdakı kibidir)

Private Sub CommandButton1_Click()
Dim ConnectString, SQLstring, QueryResult              
   ConnectString = "ODBC;DRIVER=SQL Server;SERVER=" & TextBox1 & ";UID=;APP=Microsoft Office 2003;WSID=PL04;Trusted_Connection=Yes; DATABASE=" & TextBox2 & "" _

SQLstring = "SELECT * FROM borc_alacak_euro where BAKIYE>5  ORDER BY UNVANI"

    Set NewBook = Workbooks.Add 'Application.TemplatesPath + "Template.XLT")
   With NewBook.Sheets(1).QueryTables.Add(Connection:=ConnectString, Destination:=NewBook.Sheets(1).Range("A1"), Sql:=SQLstring)
      .BackgroundQuery = False
      .FieldNames = False
      .RefreshStyle = xlOverwriteCells
      .Refresh BackgroundQuery:=False
End WITH
END SUB

Verilerin nerde bitmesi belli deyil. A1 = A* kadar ola bilir.
Bu verileri Kolona degil satıra nasıl yazdıra biliris? Bu mümkünmü?
(A1,B1,C1,***** kadar)
İlginiz için teşekkürler

 

[Necdet]

Merhaba,

Doğru mu anladım bilmiyorum.
Veriyi excele aldıktan sonra aşağıdaki kodları çalıştırınız.

Sub Makro1()
    Dim SonSat As Long
    SonSat = [A65536].End(3).Row
    If SonSat > 254 Then
        MsgBox "Kolon Sayısı Fazla"
        Exit Sub
    End If
    Range("A1:A" & [A65536].End(3).Row).Copy
    Range("B1").PasteSpecial Paste:=xlPasteAll, _
                             Operation:=xlNone, _
                             SkipBlanks:=False, _
                             Transpose:=True
    Columns(1).Delete
End Sub

 

[Maksim]

Bir daha teşekkür ederim..