Excel - macro que elimine la fila que tenga un texto buscado, más una fila extra

Sub Borrar_Filas()

    Dim Texto As String, Filas As Long

    Texto = Cells(2, "A")

    Filas = 4

    While Cells(Filas, "A") <> ""

        If Cells(Filas, "A") = Texto Then

            Rows(Trim(Str(Filas - 1)) & ":" & Trim(Str(Filas))).Select

            Selection.Delete Shift:=xlUp

        Else

            Filas = Filas + 1

        End If

    Wend

End Sub