Kritere göre hücre silme

[hllhll1]

Arkadaşlar merhaba,
A sütünunda bulunan "XDC" ve "SMT" kodlarıyla başlayan ürün kodlarını sil butonuna tıkladığımızda silip geriye kalan kodları aynı sütunda veya E sütununda nasıl yazdırabiliriz ?
İlginiz için teşekkür ederim.
(forumda aramama rağmen tam olarak istediğim şeyi bulamadım)
(dosya ektedir)

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[asi_kral]

Merhaba
Bu kodu dener misiniz_?

Option Explicit
Sub sil()
Dim STR As Long
STR = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:A" & STR).AutoFilter 1, "=*XDC*"
Range("A2:A" & STR).Delete xlUp
Range("A1:A" & STR).AutoFilter
Range("A1:A" & STR).AutoFilter 1, "=*SMT*"
Range("A2:A" & STR).Delete xlUp
Range("A1:A" & STR).AutoFilter
End Sub

 

[hllhll1]

asi_kral ve muygun çok teşekkür ediyorum.Sorun halledildi.
İyi Çalışmalar.

 

[asi_kral]

asi_kral ve muygun çok teşekkür ediyorum.Sorun halledildi.
İyi Çalışmalar.

Kolay Gelsin.