Hücre içeriğini silme sorunu

[extra5]

Örneğin A15 hücre aralığını VBA kodlarıyla sileceğim.

 Sub Sil()
        Application.Sheets("Giris").Select
        Range("A1:D5").Delete
    End Sub

kodlarıyla sildiğimde hücreleri komple sildiğinden alttaki hücreler onun yerini alıyor ve işime yaramıyor.

 Sub Sil()
        Application.Sheets("Giris").Select
        Range("A1:D5").Clear
    End Sub

bu şekilde silince de hücre biçimlendirmesini de siliyor. Yani hücrenin kendisini ve biçimini silmeden sadece içindeki bilgiyi silecek bir kod var mı acaba? Şimdiden teşekkür ederim..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Range("A1:D5").ClearContents

 

[extra5]

Çok teşekkür ederim sayın COST_CONTROL.. kod çok güzel çalıştı..