Excel in brisanje tocno dolocenih vrstic

Ziv!

Vsak mesec mi kolega dostavi tabelco s priblizno 180 vrsticami, od katerih potrebujem samo dolocene (priblizno 30 jih pobrisem, vedno iste, a niso zaporedne).

Glede na to, da delam "na roke" in sem totalen script-idiot me zanima, kako bi si to delo olajsal oziroma avtomatiziral.

Vsaka pomoc dobrodosla.

b.

Moglo bi biti nekaj podobnega (nisem prepričan, da bo delalo, saj bi ga bilo potrebno stestirat). Znakoma >< zamenjaj vrstni red (me ni pustilo objavit, če ga napišem pravilno).

Sub Lopov()

Dim ER As Integer

Application.ScreenUpdating = False

Cells.Find(What:="tvoj znak", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=True).Activate

ER = ActiveCell.Row

ActiveCell.Offset(1, 0).Select

Do While ActiveCell.Row >< ER

Cells.Find(What:="tvoj znak", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=True).Activate

Selection.Delete Shift:=xlup

Loop

Selection.EntireRow.Select
Selection.Delete Shift:=xlup

Range("A1").Select

Application.ScreenUpdating = True

End Sub