Delete all rows between two key words

[leeksleeks]

Hi,

I am having trouble deleting the rows between two key words I have on my worksheet. I can select them but can't work out how to delete all the rows in between and not just the row that the first word appears on. So far I have the following code to select the rows between the key words:

Sub SelectKeyWordRanges()

    With ActiveSheet
    .Range(.Cells.Find("Scoring history"), .Rows.Find("Match stats")).Select
    
    End With

To summarise if "Scoring history was in cell A:10 and "Match stats" was in A:20, I would want to delete all rows (including the data in columns B,C,D etc) in between.

I thank you in advance!

 

[onlyadrafter]

Hello,

probalby not the only solution

Sub SelectKeyWordRanges()
    With ActiveSheet
        MY_START = .Cells.Find("Scoring history").Row + 1
        MY_END = .Cells.Find("Match stats").Row - 1
        .Rows(MY_START & ":" & MY_END).Delete
    End With
End Sub