Kód:
Sub Uprava()

Dim Ciselnik As Range, Ucty As Range

Set Ciselnik = Sheets(1).Range("b1", "b15") 'Sheets(Cislo listu)
Set Ucty = Sheets(1).Range("a1")

Do Until Ucty = ""
  
  If Ciselnik.Find(Ucty) Is Nothing Then
  'Podivej se do napovedy jak chces nastavit podminky pro hledani
  'hlavne LookIn, LookAt a MatchCase
  'LookIn - vyhledani hodnot, vzorcu, komentaru
  'LookAt - zda musi sedet cely text, nebo pouze vysek &#40; bud "ASD1"="ASD10" nebo "ASD1"<>"ASD10"
  'MatchCase - mala velka
  'asi budes chtit&#58; Ciselnik.Find&#40;Ucty lookin&#58;=xlvalues,lookat&#58;=xlwhole,matchcase&#58;=true&#41;
    Set Ucty = Ucty.Offset&#40;1, 0&#41;
    Ucty.Offset&#40;-1, 0&#41;.Delete Shift&#58;=xlUp
   Else
    Set Ucty = Ucty.Offset&#40;1, 0&#41;
  End If
  
Loop

End Sub
Pokud neuvedes nejakou vlastnost procedury Find, pak se pouzije posledni nastaveni, ktere bylo v dialogu Ctrl+F