sletning af linier

Sub Søg()
Dim Søg
On Error GoTo Slut
    Søg = InputBox("Skriv søgestrengen på hvad der skal slettes", "Sletning af rækker")
      Columns("A:E").Select 'området den søger på ret det selv til
     
'denne her finder alle, men den kikker på delord
'så hvis du søger på "holding" finder den også "abb holding"
        Selection.Find(What:=Søg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate

''hvis den kun skal søge på hele cellen skal du bruge  nedenstående linie:
'    Cells.Find(What:=Søg, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
'    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
'    ).Activate

        a = ActiveCell.Row
        b = ActiveCell.Column
    Rows(ActiveCell.Row).Select
  Selection.Delete Shift:=xlUp
  Cells(a, b).Activate
  Do
Cells.FindNext(After:=ActiveCell).Activate
    Rows(ActiveCell.Row).Select
  Selection.Delete Shift:=xlUp
Loop
Slut:
End Sub

Sub SøgFarve()
Søgstr = InputBox(" Søgestreng")
'
    Cells.Find(What:=Søgstr, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
        ActiveCell.Interior.ColorIndex = 46
        Old = ActiveCell.Address
        Do
    Cells.FindNext(After:=ActiveCell).Activate
    ActiveCell.Interior.ColorIndex = 46
    Loop Until Old = ActiveCell.Address
End Sub