Filtrelenmiş Listede OFFSET kullanımı

[TheGreatest]

Selam Arkadaslar,

Asağıdaki kod sayesinde excel sayfamdaki listeyi filtreleyip, önce filtrelenmiş listenin ilk hücresini daha sonrada bütün görülebilir hücreleri seçiyorum.
Daha sonra sağdan 10uncu sütuna "SİL" yazdiriyorum. Bu kodlar sadece ilk sıradaki 10uncu sütuna "SİL" yazıp bırakıyor, görülebilir sıraların hepsine "SİL" yazdirabilmek icin ne gibi bir değişiklik yapmam gerek?


Sub filterRange()
Dim rRange As Range

Selection.AutoFilter Field:=2, Criteria1:="=*www*", Operator:=xlAnd
Set rRange = Sheet1.AutoFilter.Range
rRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).Cells(1, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
ActiveCell.Offset(0, 10).FormulaR1C1 = "SİL"
End Sub

 

[hamitcan]

Sub Kaydir()
    Set tbl = [a2].CurrentRegion
    tbl.Offset(1, 9).Resize(tbl.Rows.Count - 1, _
        tbl.Columns.Count - 1) = "sil"
End Sub