Çözüldü Başka sayfadaki bilgilerin yarısı gelmiyor

Merhabalar Sn. @SilinenUye8231 ;

Bilgilerin tamamının gelmeme nedeni hücre aralığı tanımlanan satırla ilgili.
-- Sheets("Sayfa1").Range("B1000").End(3).Row kısmı Sayfa1 de B sütunundaki son dolu hücrenin satır numarasını alıyor.
-- Sheets("Sayfa2").Range("A6:A" & Sheets("Sayfa1").Range("B1000").End(3).Row) bu satır çalıştığı zaman da oluşan hücre aralığı A6:A9 olduğu için kod belirlenen aralıkta doğru çalışıyor.

Örnek olarak hücre aralığını aşağıdaki gibi değiştirirsek Sayfa1 deki tüm bilgiler gelir.
** Kod açıklaması şu şekilde,
-- Sayfa1 deki son dolu hücrenin satır numarası son isimli değişkene alınıyor. (Örnek dosyada dolu satır 9)
-- Sheets("Sayfa2").Range(Cells(6, "A"), Cells(son + 6 - 1, "A")) satırı ile hücre aralığı tanımlanıyor.
Bu satırdaki ifadeler
-- Cells(6, "A") ifadesinin karşılığı A6 hücresi.
-- Cells(son + 6 - 1, "A") ifadesinde ise 6. satıra son isimli değişken değerini ekliyoruz ki kayıt sayısı kadar ilerlesin satır numarası.
Neden -1 yaptık? 6. satırda başlık olduğu için. -1 yapmamak için son+5 olarak da kullanabilirsiniz.
-- Range(Cells(6, "A"), Cells(son + 6 - 1, "A") ifadesinin karlığı A6:A14 olur.

Sayın Ahmet Bey, ellerinize sağlık çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Ayrıca açıklama içinde çok teşekkür ediyorum.

Hayırlı cumalar diliyorum.

Rica ederim.
Saygılarımla, Hayırlı Cumalar, iyi çalışmalar.