Filtredeki değerlerin satır sil işlemi

[endexci]

Merhabalar değerli dostlar,
Ekteki excel dosyamda binlerce veri olduğunu düşünürsek aşağıdaki açıklamasını yaptığım şekilde istemediğim değerlerin satırlarını silmek istiyorum bunu nasıl yaparım konusunda, değerli destekleriniz için şimdiden teşekkür ederim.
1- "E" sütunundaki 622 olanları silmek
2- "G" sütununda bulunan "DACİA" marka olanları silmek

 

[mancubus]

Sub xlTR_177000()

    With Worksheets("Sayfa1")
        .AutoFilterMode = False
        .Cells(1).AutoFilter Field:=5, Criteria1:="622"
        .UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilterMode = False
        .Cells(1).AutoFilter Field:=7, Criteria1:="DACİA"
        .UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilterMode = False
    End With

End Sub

 

[endexci]

Sub xlTR_177000()

    With Worksheets("Sayfa1")
        .AutoFilterMode = False
        .Cells(1).AutoFilter Field:=5, Criteria1:="622"
        .UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilterMode = False
        .Cells(1).AutoFilter Field:=7, Criteria1:="DACİA"
        .UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilterMode = False
    End With

End Sub

İlginiz ve cevabınız için teşekkür ederim.

 

[mancubus]

rica ederim.
kolay gelsin.