Deleting Rows VBA

[AgustinGuerrero]

Hi, I want to create a coda that allows me to find a specific text on a range and then select all the rows until it finds another value and delete all the rows
For example, I want to search the word "Hello" in Range ("A:A") and then delete all the rows (the one with Hello text as well) until it finds the word "Goodbye".
I started with Range("A:A").Find("Hello").select but don't know how to select all the rows up to "goodbye" and delete them.
Many thanks!

 

[Coding4Fun]

Sub Test()

myRange = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To myRange
    If InStr(1, Range("A" & i).Value, "Hello") Then
        myStart = i
    End If
   
    If InStr(1, Range("A" & i).Value, "Goodbye") Then
        myEnd = i
    End If
Next i

' Delete Hello through Goodbye including both Hello and Goodbye
Range("A" & myStart & ":A" & myEnd).Delete shift:=xlShiftUp

' Delete Hello through Goodbye excluding Goodbye
Range("A" & myStart & ":A" & myEnd - 1).Delete shift:=xlShiftUp


End Sub

 

[rollis13]

This code will fetch the two row numbers, then you can use them to delete how you need:

Dim srchF, srchL
Set srchF = Range("A:A").Find(What:="Hello", After:=Range("A1"), LookAt:=xlWhole)
Set srchL = Range("A:A").Find(What:="Goodbye", After:=Range("A" & srchF.Row), LookAt:=xlWhole)
MsgBox srchF.Row & " , " & srchL.Row

PS. Hi to all.