Her arama öncesi satırların boşaltılması

[archetype]

Merhaba arkadaşlar,

Userform ile Sayfa1'de arama yapıp listbox'taki verileri Sayfa2'ye aktarıyorum. Ancak her arama sonrasında satırlar silinmediği için sürekli alt alta ekleme yapıyor. İstediğim şey her arama öncesinde Sayfa2'deki b4:h20 arasındaki satırların silinmesi.
Bu konuda yardımcı olabilir misiniz?
Bir de kodlar çalışıyor ama hatalı yazdığım herhangi bir yer var mı? Söyleyebilir misiniz?

 

[Orion1]

Buyurun.

Sheets("Sayfa2").Range("B4:H20").ClearContents

 

[archetype]

Çok teşekkür ederim. Dener size bilgi veririm.