Sayfa korumalı iken süzme problemi

[vivident]

Merhaba

Ekteki dosyada aşağıdaki kodları kullanıyorum. userform üzerindeki ekle butonuna tıklayınca sayfanın geçici şekilde koruması kalkıyor, değerler yapıştıktan sonra tekrar koruma devreye giriyor. fakat bu kez otomatik filitreleme yapamıyorum. Otomatik filitre seceneği aktif olmasına rağmen olmuyor

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
Sheets("Liste").Unprotect "261965"
    Cells(ActiveCell.Row, "F") = ComboBox1.Value
    Cells(ActiveCell.Row, "G") = ComboBox2.Value
    Cells(ActiveCell.Row, "H") = ComboBox3.Value
    Cells(ActiveCell.Row, "I") = ComboBox4.Value
    Cells(ActiveCell.Row, "J") = ComboBox5.Value
    Cells(ActiveCell.Row, "L") = ComboBox6.Value
    Cells(ActiveCell.Row, "M") = ComboBox7.Value
    Cells(ActiveCell.Row, "Q") = ComboBox8.Value
    Cells(ActiveCell.Row, "R") = ComboBox9.Value
    Cells(ActiveCell.Row, "S") = ComboBox10.Value
    Cells(ActiveCell.Row, "T") = ComboBox11.Value
    Cells(ActiveCell.Row, "K") = TextBox1.Value
    Cells(ActiveCell.Row, "P") = TextBox2.Value
    Cells(ActiveCell.Row, "O") = TextBox3.Value
    Cells(ActiveCell.Row, "N") = TextBox4.Value
    Cells(ActiveCell.Row, "B") = TextBox5.Value
    Cells(ActiveCell.Row, "E") = CDate(TextBox6.Value)
    Unload Me
    Sheets("Liste").Protect "261965"
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

Yardımlarınızı bekliyorum