Cómo eliminar filas hasta que encuentre una palabra

Es mi primera vez por acá y soy nuevo en lo de las macros; tengo el siguiente dilema; en X celda hay una palabra, encima de esa celda hay una o varias filas, necesito eliminar las filas que están por encima de la palabra, o sea, que elimine filas hasta que encuentre la palabra. Tengo un código, me funciona, pero me va eliminando una por una y lo que necesito es que me elimine todas las filas antes de encontrar la palabra.

Les dejo mi código:

Sub BorrarFilas()
Dim fila As Long
Dim palabra, encontrar As String
fila = 1
palabra = "FIN"
Do While encontrar <> palabra
fila = fila + 1
encontrar = Range("A" & fila)
If encontrar = Empty Then
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End If
Exit Sub
Exit Do
Loop
End Sub