Şarta göre alt satır silme

[ThEeNCi]

Selamlar (M) harfi olan satırın bir alt satırının silme macrosu lazım yardımlarınızı rica ediyorum.
İyi Günler

 

[Orion1]

Selamlar (M) harfi olan satırın bir alt satırının silme macrosu lazım yardımlarınızı rica ediyorum.
İyi Günler

Buyurun.
Sub msil59()
Dim i As Long, sonsat As Long, deg As Integer
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
For i = sonsat To 2 Step -1
deg = InStr(1, Cells(i - 1, "B").Value, "(M)")
If deg > 0 Then Rows(i & ":" & i).Delete
Next
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ThEeNCi]

Çok teşekkür ederim.
Ellerinize sağlık.