Aralık Temizleme Clearcontents ve listbox dolu satır sayısı öğrenmek

[a_self_lion]

Selam arakdaşlar.
iki sorum olucaktı.
1-)
Sheets("SONUC").Range("A350").ClearContents

Yukarıda kodla hücrelerimi temizlediğm zaman A51 a52 nci hücrelerimi de temizliyor
Ben istiyorum ki A3 ve p50 aralığındaki boyuanmış hücrelerimi nasıl temnizlerim. yukarıdaki kod c51 c52 de kileride temziliyor.

2-) Listbox daki veriyi satırsayısı = ListBox1.ListCount şeklinde alabiliyorum ama ben dolu satır sayısı almak istiyorum. boş olanları almak istemiyorum.
dolusatırsayısı = ??????

Teşekkür ederim

 

[a_self_lion]

Allah allah

Sheets("SONUC").Range("A350").ClearContents

bu kod başka sayfada denedim düzgün çalıştı neden bu çalışma kitabında hepsini siliyor. Lütfen yardım ederseniz sevinirim. Başka bir yolu olabilir mi.

 

[ExcelF1]

Örnek dosya ????

Bir yerde çok bariz bir hata yaptığınız kesin.