Son Dolu Satırı Bulup Değişken Alanı Kopyalama

Bu tür örnek belgeler bulmaca çözer gibi oluyor.
Formüle bakıyorum DÜŞEYARA işlevinde ARANAN değer 1&SATIR(...) şeklinde ve diyelim ki aranan 11 ,
(aranan değerin neden bu şekilde bulunduğu konusu ayrı tabi)
-- A sütununa bakıyorum veri görünmüyor,
-- A sütununun yazı rengi beyaz mı acaba diye renk değiştiriyorum yina A sütunu boş,
-- A sütununda koşullu biçimlendirme ile mi yazı rengi beyaz ayarlanmış deyip koşullu biçimlendirme temizliyorum hala A sütunu boş,
-- Son olarak A sütununun normal hücre biçimlendirmesine bir bakıyorum ki ;;; biçimlendirmesiyle veriler gizlenmiş.

Buraya kadarki kısım belgeyi anlamaya başlamak için idi.
Diğer sütunlara bakınca .başka sütunlarda da benzer DEĞER GİZLEME işlemi var olduğu görülüyor.
Bu kadar bulmaca çözme işi yeterli diye düşünüyor insan.

Gerçekten değişik bir soru sorma yöntemi olmuş.

Sn. Ömer Bey;

Gizleme işlemi var doğrudur işlem yapılacak alan "M7:R256" arasına olduğundan dolayı diğerlerini göstermeye gerek duymadım.

Örnek belge böyle olunca asıl soruya odaklanmak güçleşiyor.

Benim anlayabildiğim, size B sütununda 1 olanların adeti gerekiyor.
Eğer isteğin karşılığı bu ise sağdaki tabloda kopyalanacak satır sayısı için =TOPLA($B$7:$B$256) veya =KAÇINCI(MAK($E:$E)+1;N:N;1)-6 formülü işi görür. Başka formül alternatifleri da olabilir elbette.

Sn. Ömer Bey;

VBA ile nasıl çözülebilir.?

Mevcut formülleriniz (hem soldaki gizlenmiş kısım hem sağdaki listeleme kısmı) duracak mı durmayacak mı?

Evet @Ömer BARAN hocam iki kısımda duracak A:B sütunları gizlenecek diğer kısımlar açık olacak "M7:R256" arasındaki dolu hücreler kopyalanacak

Sn. @Ömer BARAN hocam seçili alanı yapıştırma kısmını iptal etsek sadece kopyalanmış olsa çünkü verileri whatsapp a yapıştırıyorum.

O zaman IF .... End If arasında sadece ....Copy satırı kalsın, diğer 2 satırı silin.

Sn. @Ömer BARAN Bey;

Yardımlarınız için teşekkür ederim,

Saygılarımla.