Macro to delete all rows following a rule

[richiwatts]

I have an Excel file that looks somethng like below
Rubbish text = can be any text but we want to get rid of it
Message text = This is the actual word in the cell. We don't need this row but it is always before the row we need to keep.
Important text = can be any text but these are the only rows we want to keep. The only way to identify this row is when the row before it has the word "Message text"

Is it possible to do this with a macro?

Column A

Rubbish text
Rubbish text
Rubbish text
Message text
Important text
Rubbish text
Rubbish text
Rubbish text
Rubbish text
Rubbish text
Message text
Important text

 

[Sektor]

Sub ImportantMessages()

    Dim i As Long
    
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Not Cells(i - 1, "A") Like "Message text*" Then
            Cells(i, 1).EntireRow.Delete
        End If
    Next
    
End Sub