süzme ile ilgili

[xxihsidxx]

herkese iyi günler,
veri sayfasından liste sayfasına süzme yaptırarak veri alan aşağıdaki kodlarda bir sorun yok.ama veri sayfasından sınıf sayfasına aynı işlemi yaptırmak istediğim 2.kodlarda Selection.End(x1ToRight).Select kısmında "application.defined or object-defined error" hatası veriyor.o kadar inceledim bulamadım,neresi gözümden kaçıyor,hata kodunun anlamı nedir?öğrenmek istiyorum . yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
1-Private Sub ComboBox1_Change()
Worksheets("liste").Select
Cells.ClearContents
Worksheets("veri").Select
[a1].Select
Selection.AutoFilter
Selection.End(xlToRight).Select
Selection.AutoFilter field:=5, Criteria1:=ComboBox1.Value
Range("a1:Y1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("liste").Select
Range("a1").Select
ActiveSheet.Paste
Range("a2").Select
Worksheets("veri").Select
Range("A1").Select
Selection.AutoFilter
Worksheets("liste").Select
End Sub

2-Private Sub ComboBox2_Change()

Worksheets("sınıf").Select
Cells.ClearContents
Worksheets("veri").Select
[a1].Select
Selection.AutoFilter
Selection.End(x1ToRight).Select
Selection.AutoFilter field:=5, Criteria1:=ComboBox2.Value
Range("a1:g1").Select
Range(Selection, Selection.End(x1Down)).Select
Selection.Copy
Worksheets("sınıf").Select
Range("a1").Select
ActiveSheet.Paste
Range("a2").Select
Worksheets("veri").Select
Range("a1").Select
Selection.AutoFilter
Worksheets("sınıf").Select
End Sub

 

[Levent Menteşoğlu]

Selection.End(x1ToRight).Select

Sorun yukarıdaki kırmızı renkli yerde burayadaki 1 (bir) rakamı değil "l" harfi olmalıdır.