Abey ben anlamıyorum son yolladığım kodları neden kullanmıyorsunuz.

Sub Siciller() ve Sub Listele() içinde alttaki kod var.
Başındaki tek tırnağı kaldırın.
Son yolladığım dosyaya baktım orda tırnak işareti yok.

'syfListe.Range("A1:Aj6").Clear