SQL sorgu sonucunda hücre kayması

[mehmetkoca]

Arkadaşlar Merhaba ;
Aşağıdaki şekilde bir sorgum var.
Burdaki sıkıntım ise ; sorgu sonucu sadece tek olarak A1 hücresine gelmesi gerekirken
A1 boş geçilip A2 hücresine yazılıyor ayrıca A3 hücreside boşalıyor.Bu sebeple excel tablosunda 10 civarında sorgu oluşturmam gerekiyor ama hücre kaymaları yüzünden bir türlü işi bitiremedim.

İlgilenen arkadaşlara şimdiden teşekkür ediyorum.
İyi Çalışmalar.

Sub SORGU1()
   Range("A1").Select
   
    With Selection.QueryTable
    
        .Connection = Array( _
        "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;User ID=sa;Initial Catalog=MikroDB_V14_ATOLYE2013;Data S" _
        , _
        "ource=motifserver;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=MEHMET;Use Encryption for Data" _
        , "=False;Tag with column collation when possible=False")
        .CommandType = xlCmdSql
        .CommandText = Array( _
        "SELECT Sum(fis_meblag0) FROM dbo.MUHASEBE_FISLERI WHERE ( fis_hesap_kod like '100%') and ( fis_tarih <= '20131031')" _
        )
      
        .Refresh BackgroundQuery:=False
       

    End With

 

[mehmetkoca]

Arkadaşlar yardımcı olabilirseniz memnun olurum.

 

[mehmetkoca]

Cevabı buldum arkadaşlar.Veri Aralığı Özelliklerinden Alan adlarını ekle onayını kaldırınca sorun düzeldi.