süzmede hata !

Merhaba Textbox 1 (adı ) evrak arama - süzme işlemi yaparken süzme de hata veriyor. Private Sub TextBox1_Change() 'SÜZ Dim suz As Worksheet Dim Veri As Worksheet Set suz = Worksheets("suz") Set Veri = Worksheets("VERİ") suz.Range("A2:I" & Worksheets("suz").Cells(Rows.Count, 1).End(xlUp).Row +...