Excel: brisanje celije u zavisnosti od vrednosti u njoj?

Skoro sam naisao na jedan meni vrlo koristan makro koji brise red u kome se nalazi odredjena rec:

Dim rng1 As Range
Dim what1 As String
what1 = "BRISI"
Do
Set rng1 = ActiveSheet.UsedRange.Find(what1)
If rng1 Is Nothing Then
Exit Do
Else
Rows(rng1.Row).Delete
End If
Loop

Ali, sada mi treba slicna stvar, koja ce brisati celiju (Delete Shift Cells Up).
Ne znam VBA, pa sam sam probao da se igram sa Cells umesto Rows ali - naravno da ne radi :)
Da li bi neko znao kako obrisati celiju(e) koje imaju odrdjenu vrednost/text u sebi?

Snimi makro u kojem ćeš sam obrisati ćeliju (tokom snimanja, razume se), pa prilagodi kod koji pominješ.

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!