(13/09/2021, 17:23)karacaayt yazdı: toplam sütununda veriler hatalı oldu yani topla sonucu doğru değil.

sorgunuzdaki amacı bilmediğimden çalışan bir sorgu olsun diye yazmıştım aslında sorgu kısmı için yeni konu açıp orada ayrıntılı açıklamada bulunarak sormanız daha uygun

(13/09/2021, 17:23)karacaayt yazdı: ayrı ayrı hücrelere yardırmak için ne  yapmalı

amacınız tam olarak ne o önemli bütün sorguyu alacaksanız önerdiğim CopyFromRecordset ADO_RS kodu zaten tüm veriyi alıyor
ama amacınız belli bir kaydın verilerini belli hücreler aktarmaksa

Sheets("Sayfa1").Range("A4") = ADO_RS.Fields("Ad")

aslında doğru hata vermemesi gerek
dosyanızın hata veren haliyle ekler misiniz?