silmede sorun

[sozlersilah]

slm sayın arkadaşlar,benim yapmak istediğim 500 sayfalık bir çalışma sayfam var.1.sayfaya koyduğum butonla girilmiş verileri silebiliriyorum ama sayfa çok olunca bunu yazması bayağı zaman alıyor.Bunun kısa bır kodu varmı acaba.2 sayfadaki bilgileri silmek için kullandığım kod:
Private Sub CommandButton1_Click()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
Son1 = S1.[A50].End(3).Row
Son2 = S2.[A50].End(3).Row
S1.Range(Cells(Son1, "A"), Cells(Son1, "E")).ClearContents
S2.Range(S2.Cells(Son2, "A"), S2.Cells(Son2, "E")).ClearContents
End Sub

 

[bedersu]

Private Sub CommandButton1_Click()
for i = 1 to 500
Set S1 = Sheets(i)
Son1 = S1.[A50].End(3).Row
S1.Range(Cells(Son1, "A"), Cells(Son1, "E")).ClearContents
next i
End Sub

 

[Seyit Tiken]

Bu şekilde bir deneyin.

Sub Düğme1_Tıklat()
Sayfa2.[A:A] = Empty
End Sub

 

[sozlersilah]

arkadaşlar ilginize teşekkür ederim ama çalışmadı

 

[bedersu]

For i = 1 To 6
Set S1 = Sheets(i)
Sheets(i).Activate
Son1 = S1.[A50].End(3).Row
S1.Range(Cells(Son1, "A"), Cells(Son1, "E")).ClearContents
Next i

olarak düzeltin.