VBA: Range Bereich festlegen

Option Explicit
Const Titel = "Zeilen Löschen mit Wert"
Const Msg = "Wert, nachdem gesucht und gelöscht werden soll."
Sub DelFoundLines()
Workbooks("HM2030_RO_").Worksheets("RO").Activate
Dim i As Long           ' Zeilenzähler
Dim tofind As Variant   ' Hiernach wird gesucht
Dim found As Range      ' Eine Fundstelle oder Nothing
tofind = InputBox(prompt:=Msg, Title:=Titel)
If tofind = "" Then Exit Sub
Application.ScreenUpdating = False
For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row _
To 1 Step -1
Set found = Rows(i).Find(what:=tofind, _
LookIn:=xlValues, lookat:=xlWhole)
If Not found Is Nothing Then Rows(i).Delete
Next
Application.ScreenUpdating = True
End Sub

Sub DelFoundLines()
Workbooks("HM2030_RO_").Worksheets("RO").Activate
Dim i As Long           ' Zeilenzähler
Dim tofind As Variant   ' Hiernach wird gesucht
Dim found As Range      ' Eine Fundstelle oder Nothing
tofind = UF2_ID_Auslagern.CB_ID_RO
If tofind = "" Then Exit Sub
Application.ScreenUpdating = False
For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row _
To 1 Step -1
Set found = Rows(i).Find(what:=tofind, _
LookIn:=xlValues, lookat:=xlWhole)
If Not found Is Nothing Then Rows(i).ClearContents
Next
Application.ScreenUpdating = True
End Sub